Finalize change #4232.

[p5sagit/p5-mst-13.2.git] / lib / File / Find.pm

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 9cd5c06..28e2e90 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -130,6 +130,8 @@ sub find_opt {
                warn "Can't cd to $dir: $!\n";
            }
        }
+    }
+    continue {
        chdir $cwd;
     }
 }
@@ -168,6 +170,7 @@ sub finddir {
 
                # Get link count and check for directoriness.
 
+               $_ = "" if (!defined($_));
                ($dev,$ino,$mode,$nlink) = ($Is_VMS ? stat($_) : lstat($_));
                    # unless ($nlink || $dont_use_nlink);