diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-07-22 16:16:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-07-22 16:16:41 +0000 |
| commit | 275e8705031e539ec9999f68482039d1bcfb1608 (patch) | |
| tree | 3adcf4102a62a22872695a978f67609cf6bfae85 /lib/Cwd.pm | |
| parent | 6d3b25aa06c9837fbb97c3791369b6d8990787c7 (diff) | |
| download | perl-275e8705031e539ec9999f68482039d1bcfb1608.tar.gz | |
Upgrade to Cwd 2.20
p4raw-id: //depot/perl@23152
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index b0dad20e6a..dc52b72014 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -1,5 +1,5 @@ package Cwd; -$VERSION = $VERSION = '2.19'; +$VERSION = $VERSION = '2.20'; =head1 NAME @@ -469,7 +469,8 @@ sub _perl_abs_path(;$) my ($dir, $file) = $start =~ m{^(.*)/(.+)$} or return cwd() . '/' . $start; - if (-l _) { + # Can't use "-l _" here, because the previous stat was a stat(), not an lstat(). + if (-l $start) { my $link_target = readlink($start); die "Can't resolve link $start: $!" unless defined $link_target; |