From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Tue, 14 May 1996 08:42:17 +0000 (+0000)
Subject: Allow for directory named "0"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f997daff4fff94748c052f95e7390fac6fc4aec;p=p5sagit%2Fp5-mst-13.2.git

Allow for directory named "0"
---

diff --git a/lib/getcwd.pl b/lib/getcwd.pl
index 8db8e20..d886018 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;
 }