This is the mail archive of the cygwin mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: perl -r says readable dir is unreadable


Sorry.

Found this
http://sourceware.org/ml/cygwin/2005-03/msg00488.html

Apparently it's been an issue since at least Perl 5.8.6 in 2005, but
probably longer.

On Sun, Apr 26, 2009 at 2:37 PM, Mikel Ward <mikel@mikelward.com> wrote:
> Hi
>
> I'm having problems with a Perl script that works fine on Linux.
>
> The key is that the -r (file is readable) operator returns false for
> directories that I CAN read. ?"test" and "ls" prove that I can read
> them.
>
> Something that might be related is that C:, C:\Windows, and others are
> owned by the "TrustedInstaller" user, which mkpasswd can't handle.
> http://www.nabble.com/group-%3D-(2**32-1)-%3D-4294967295-td20319853.html
>
> I use / as my Cygwin prefix rather than /cygdrive, but I've tried
> /cygdrive and it gives the same results.
>
> I'm running as myself, but running as Administrator also gives the same results.
>
> I'm running Vista.
>
> $ test -r /c/WINDOWS && echo "/c/WINDOWS is readable"
> /c/WINDOWS is readable
>
> $ cat ~/bin/readable
> #!/usr/bin/perl
>
> if (-r $ARGV[0]) {
> ? ? ? ?print $ARGV[0] . " is readable\n";
> ? ? ? ?exit 0;
> }
> else {
> ? ? ? ?print $ARGV[0] . " IS NOT readable\n";
> ? ? ? ?exit 1;
> }
>
> $ ~/bin/readable /c/WINDOWS
> /c/WINDOWS IS NOT readable
>
> $ cat ~/bin/pstat
> #!/usr/bin/perl
>
> ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)
> = stat($ARGV[0]);
> print "mode = " . $mode . "\n";
>
> $ ~/bin/pstat /c/WINDOWS
> mode = 16888
>
> $ ls -l /c/WINDOWS | head
> ls: /c/WINDOWS/bthservsdp.dat: Permission denied
> ls: /c/WINDOWS/DUMP4352.tmp: Permission denied
> ls: /c/WINDOWS/LiveKernelReports: Permission denied
> ls: /c/WINDOWS/MEMORY.DMP: Permission denied
> ls: /c/WINDOWS/ModemLogs: Permission denied
> ls: /c/WINDOWS/Prefetch: Permission denied
> ls: /c/WINDOWS/Temp: Permission denied
> total 505455
> -rwx------+ ? ?1 Administrators None ? ? ? ? ? ? 0 Jan ?2 10:58 AS_Debug.txt*
> drwxrwx---+ ? ?4 ???????? ? ? ? ???????? ? ? ?4096 Apr 15 07:30 AppPatch/
> drwxrwx---+ ? ?6 ???????? ? ? ? ???????? ? ? ? ? 0 Nov 23 13:52 Boot/
> drwxrwx---+ ? ?4 ???????? ? ? ? ???????? ? ? ? ? 0 Nov ?2 ?2006 Branding/
> drwx------+ ? ?2 Administrators ???????? ? ? 49152 Nov ?2 ?2006 Cursors/
> -rwx------+ ? ?1 Administrators None ? ? ? ? ?1171 Jan ?6 22:34 DIFx.log*
> -rwx------+ ? ?1 Administrators None ? ? ? ?319456 Jan ?2 10:59 DIFxAPI.dll*
> -rwx------+ ? ?1 SYSTEM ? ? ? ? SYSTEM ? ? ? 17932 Jan ?6 23:13 DPINST.LOG*
> ---------- ? ? 1 ???????? ? ? ? ???????? 212167315 Nov 20 22:51 DUMP4352.tmp
>
> $ perl -version
>
> This is perl, v5.10.0 built for cygwin-thread-multi-64int
> (with 6 registered patches, see perl -V for more detail)
>
> Copyright 1987-2007, Larry Wall
>
> Perl may be copied only under the terms of either the Artistic License or the
> GNU General Public License, which may be found in the Perl 5 source kit.
>
> Complete documentation for Perl, including FAQ lists, should be found on
> this system using "man perl" or "perldoc perl". ?If you have access to the
> Internet, point your browser at http://www.perl.org/, the Perl Home Page.
>

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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]