diff options
| author | Andy Dougherty <doughera.lafayette.edu> | 1995-12-08 00:34:53 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1995-12-08 00:34:53 +0000 |
| commit | 3712091946b37b5feabcc1f630b32639406ad717 (patch) | |
| tree | 95688437cf1016cf9fa191b44e7c97d20eb24fd5 /lib/Cwd.pm | |
| parent | 4e68a2086f0b5bfb6d7944f2efbad03461f54f71 (diff) | |
| download | perl-3712091946b37b5feabcc1f630b32639406ad717.tar.gz | |
This is patch.2b1f to perl5.002beta1.
cd to your perl source directory, execute the command above, and type
patch -p1 -N < patch.2b1f
This patch includes patches for the following items:
Changes.Conf
Configure
MANIFEST
Makefile.SH
XSUB.h
ext/POSIX/POSIX.pm
ext/POSIX/POSIX.pod
ext/POSIX/POSIX.xs
ext/Socket/Socket.pm
gv.c
lib/Cwd.pm
lib/Sys/Syslog.pm
lib/diagnostics.pm
t/lib/socket.t
toke.c
The changes are described after each /^Index/ line below.
These are each described in detail below, after the corresponding
index line.
Patch and enjoy,
Andy Dougherty doughera@lafcol.lafayette.edu
Dept. of Physics
Lafayette College, Easton PA 18042
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 6b845108c2..2636fd2e4f 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -114,8 +114,10 @@ sub getcwd unless (@tst = lstat("$dotdots/$dir")) { warn "lstat($dotdots/$dir): $!"; - closedir(PARENT); - return ''; + # Just because you can't lstat this directory + # doesn't mean you'll never find the right one. + # closedir(PARENT); + # return ''; } } while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] || |