diff options
| author | Larry Wall <lwall@netlabs.com> | 1993-02-04 22:50:33 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1993-02-04 22:50:33 +0000 |
| commit | e334a159a5616cab575044bafaf68f75b7bb3a16 (patch) | |
| tree | 47369293eb7417e5322f7fe46e1a1cfc0d9c69ef /lib/getcwd.pl | |
| parent | 514dae0dba791ec01681adb3b3946a7646e146b3 (diff) | |
| download | perl-e334a159a5616cab575044bafaf68f75b7bb3a16.tar.gz | |
perl 4.0 patch 36: (combined patch)perl-4.0.36
Since Ed Barton sent me a patch for the malignent form of "Malformed
cmd links", I finally broke down and made a patch for the various
other little things that have been accumulating on version 4.
Diffstat (limited to 'lib/getcwd.pl')
| -rw-r--r-- | lib/getcwd.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/getcwd.pl b/lib/getcwd.pl index 114e8905c6..a3214ba715 100644 --- a/lib/getcwd.pl +++ b/lib/getcwd.pl @@ -42,9 +42,9 @@ sub getcwd closedir(getcwd'PARENT); #'); return ''; } - unless (@tst = stat("$dotdots/$dir")) + unless (@tst = lstat("$dotdots/$dir")) { - warn "stat($dotdots/$dir): $!"; + warn "lstat($dotdots/$dir): $!"; closedir(getcwd'PARENT); #'); return ''; } |