perl 5.003_06: pod/perlcall.pod pod/perldata.pod pod/perldebug.pod pod/perlembed...

[p5sagit/p5-mst-13.2.git] / lib / getcwd.pl

diff --git a/lib/getcwd.pl b/lib/getcwd.pl
index a3214ba..d886018 100644 (file)
--- a/lib/getcwd.pl
+++ b/lib/getcwd.pl
@@ -36,7 +36,7 @@ sub getcwd
        {
            do
            {
-               unless ($dir = readdir(getcwd'PARENT))                  #'))
+               unless (defined ($dir = readdir(getcwd'PARENT)))        #'))
                {
                    warn "readdir($dotdots): $!";
                    closedir(getcwd'PARENT);                            #');
@@ -54,7 +54,7 @@ sub getcwd
        }
        $cwd = "$dir/$cwd";
        closedir(getcwd'PARENT);                                        #');
-    } while ($dir);
+    } while ($dir ne '');
     chop($cwd);
     $cwd;
 }