Allow for directory named "0"

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