package Cwd;
-$VERSION = $VERSION = '2.19';
+$VERSION = $VERSION = '3.01';
=head1 NAME
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;