Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com
Date: Fri, 11 Mar 2005 09:18:09 +0100
From: Corinna Vinschen <corinna-cygwin AT cygwin DOT com>
To: cygwin AT cygwin DOT com
Subject: Re: Problem with the "-r" test in Perl 5.8.6-4
Message-ID: <20050311081809.GE20798@cygbert.vinschen.de>
Reply-To: cygwin AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
References: <Pine DOT GSO DOT 4 DOT 61 DOT 0503102033040 DOT 2884 AT slinky DOT cs DOT nyu DOT edu>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <Pine.GSO.4.61.0503102033040.2884@slinky.cs.nyu.edu>
User-Agent: Mutt/1.4.2i

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 AT cygwin DOT 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/