diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/getcwd.pl')
| -rw-r--r-- | gnu/usr.bin/perl/lib/getcwd.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/lib/getcwd.pl b/gnu/usr.bin/perl/lib/getcwd.pl index 8db8e20c069..9dd694500c6 100644 --- a/gnu/usr.bin/perl/lib/getcwd.pl +++ b/gnu/usr.bin/perl/lib/getcwd.pl @@ -44,9 +44,9 @@ sub getcwd } unless (@tst = lstat("$dotdots/$dir")) { - warn "lstat($dotdots/$dir): $!"; - closedir(getcwd'PARENT); #'); - return ''; + # warn "lstat($dotdots/$dir): $!"; + # closedir(getcwd'PARENT); #'); + # return ''; } } while ($dir eq '.' || $dir eq '..' || $tst[$[] != $pst[$[] || @@ -54,7 +54,7 @@ sub getcwd } $cwd = "$dir/$cwd"; closedir(getcwd'PARENT); #'); - } while ($dir); + } while ($dir ne ''); chop($cwd); $cwd; } |