Problem with the "-r" test in Perl 5.8.6-4

Corinna Vinschen corinna-cygwin@cygwin.com
Fri Mar 11 12:50:00 GMT 2005


On Mar 10 20:44, Igor Pechtchanski wrote:
> Hi,
> 
> I'm having trouble with Perl 5.8.6-4 under Cygwin 1.5.12.  Some perl
> script uses the "-r" test to chech whether a directory is readable.  It
> fails on the following directory:
> 
> $ perl -e 'exit !(-r $ARGV[0])' /cygdrive/c/Program\ Files/ThinkPad/Utilities && echo "yep"
> $ test -r /cygdrive/c/Program\ Files/ThinkPad/Utilities && echo "yep"
> yep
> $ ls -ld /cygdrive/c/Program\ Files/ThinkPad/Utilities
> drwx------+ 2 admin None 0 Aug 16  2004 /cygdrive/c/Program Files/ThinkPad/Utilities/
> $ getfacl /cygdrive/c/Program\ Files/ThinkPad/Utilities
> # file: /cygdrive/c/Program Files/ThinkPad/Utilities
> # owner: admin
> # group: None
> user::rwx
> group::---
> group:root:rwx
> group:SYSTEM:rwx
> group:Users:r-x
> group:Power Users:rwx
> mask:rwx
> other:---
> default:user::rwx
> default:group:root:rwx
> default:group:SYSTEM:rwx
> default:group:Users:r-x
> default:group:Power Users:rwx
> default:mask:rwx
> $
> 
> Is this behavior by design, or does perl actually check ACLs and something
> is wrong with my installation?

It looks like perl is using a homebrew test instead of using access(2).
At least that would explain the behaviour.


Corinna

-- 
Corinna Vinschen                  Please, send mails regarding Cygwin to
Cygwin Project Co-Leader          mailto:cygwin@cygwin.com
Red Hat, Inc.

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/



More information about the Cygwin mailing list