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

Igor Pechtchanski pechtcha@cs.nyu.edu
Fri Mar 11 08:13:00 GMT 2005


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?
	Igor
P.S. IIUC, this wouldn't have anything to do with traverse checking, even
if it weren't 1.5.12.
-- 
				http://cs.nyu.edu/~pechtcha/
      |\      _,,,---,,_		pechtcha@cs.nyu.edu
ZZZzz /,`.-'`'    -.  ;-;;,_		igor@watson.ibm.com
     |,4-  ) )-,_. ,\ (  `'-'		Igor Pechtchanski, Ph.D.
    '---''(_/--'  `-'\_) fL	a.k.a JaguaR-R-R-r-r-r-.-.-.  Meow!

"The Sun will pass between the Earth and the Moon tonight for a total
Lunar eclipse..." -- WCBS Radio Newsbrief, Oct 27 2004, 12:01 pm EDT

--
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