[sf-perl] Bug in perl (or does -r not do what I think?)

frosty biztos at mac.com
Fri Jun 6 13:14:59 PDT 2008


My first suspicion was that something funny is going on with either the NFS or the "file" command, most likely the former.

I just checked and on a local filesystem it's consistent, at least in my world (Perl 5.8.6 on RHEL 4.5 i386).

    user at localhost ~ $ ls -l somefile
    -r--------  1 postgres postgres 4 May 27 17:46 somefile
    user at localhost ~ $ sudo perl -le 'print "lies" if -r shift' somefile
    lies
    user at localhost ~ $ sudo file somefile
    somefile: ASCII text
    user at localhost ~ $ file somefile
    somefile: regular file, no read permission
    user at localhost ~ $ cat somefile
    cat: somefile: Permission denied
    user at localhost ~ $ sudo cat somefile
    yep
    user at localhost ~ $

-- f.
 
On Friday, June 06, 2008, at 01:04PM, "Dan Boger" <dan at peeron.com> wrote:
>I'm a little bit confused here, maybe one of you guys can spot what I'm
>missing.
>
>I have some files on an NFS filesystem, that is set to root_squash.  The
>file is owned by my network id (dboger), while I'm logged in locally as dan:
>
>dan at dbdb$ ls -l somefile.png
>-r-------- 1 dboger 3813 2008-06-05 16:46 somefile.png
>
>I'm trying to figure out if a file is readable, so I do something like:
>
>dan at dbdb$ perl -le 'print "lies" if -r shift' somefile.png
>dan at dbdb$
>
>That is correct - the file is owned by a different UID, and is set to 0400.
>
>Now, I try the same thing as root:
>
>dan at dbdb$ sudo perl -le 'print "lies" if -r shift' somefile.png
>lies
>dan at dbdb$ sudo file somefile.png
>couldn't open file
>somefile.png: regular file, no read permission
>
>Is perl just assuming that if I'm root I can always read the file, even
>though the permissions say that's wrong?
>
>What am I missing?
>
>Dan
>
>-- 
>Dan Boger
>


More information about the SanFrancisco-pm mailing list