p5pRT
commented
20 years ago From che@chrekh.se
Created by chrekh@rsv.se
Cwd::abs_path from Cwd 3.01 returns undef even for valid readable paths when . is not readable.
Steps to reproduce:
1) as root\, make a test-directory readable for root only. 2) cd to that dir 3) run the following test-script with 'su user -c script'
---------------------------------------------------------- use strict; use warnings;
use Cwd qw/ &abs_path /;
print $Cwd::VERSION\,"\n";
my $some_dir = abs_path('/var/spool');
print "$some_dir\n"; ----------------------------------------------------------
The result I get is:
# mkdir /tmp/foo # cd /tmp/foo # chmod og-r . # ls -ld . drwx--x--x 2 root bin 96 nov 11 10:44 ./ # ~chrekh/tmp/test.pl 3.01 /var/spool # su chrekh -c ~chrekh/tmp/test.pl 3.01 Use of uninitialized value in concatenation (.) or string at /home/u30003/chrekh/tmp/test.pl line 12.
Migrated from rt.perl.org#32406 (status was 'resolved')
Searchable as RT32406$