diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-05-14 08:42:17 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-05-14 08:42:17 +0000 |
| commit | 1f997daff4fff94748c052f95e7390fac6fc4aec (patch) | |
| tree | 8a1483e68f2423c259061c3b4089fa7de29f07c7 /lib/getcwd.pl | |
| parent | 2ad7ff014759aa9fadb78f58b37ef1455a4f660e (diff) | |
| download | perl-1f997daff4fff94748c052f95e7390fac6fc4aec.tar.gz | |
Allow for directory named "0"
Diffstat (limited to 'lib/getcwd.pl')
| -rw-r--r-- | lib/getcwd.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/getcwd.pl b/lib/getcwd.pl index 8db8e20c06..d8860181c1 100644 --- a/lib/getcwd.pl +++ b/lib/getcwd.pl @@ -54,7 +54,7 @@ sub getcwd } $cwd = "$dir/$cwd"; closedir(getcwd'PARENT); #'); - } while ($dir); + } while ($dir ne ''); chop($cwd); $cwd; } |