This is the mail archive of the
cygwin
mailing list for the Cygwin project.
Problem with the "-r" test in Perl 5.8.6-4
- From: Igor Pechtchanski <pechtcha at cs dot nyu dot edu>
- To: cygwin at cygwin dot com
- Date: Thu, 10 Mar 2005 20:44:40 -0500 (EST)
- Subject: Problem with the "-r" test in Perl 5.8.6-4
- Reply-to: cygwin at cygwin dot com
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/