perl 4.0 patch 25: patch #20, continued

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

diff --git a/lib/find.pl b/lib/find.pl
index b853d12..8dab054 100644 (file)
--- a/lib/find.pl
+++ b/lib/find.pl
@@ -48,6 +48,7 @@ sub find {
            unless (($dir,$_) = $topdir =~ m#^(.*/)(.*)$#) {
                ($dir,$_) = ('.', $topdir);
            }
+           $name = $topdir;
            chdir $dir && &wanted;
        }
        chdir $cwd;
@@ -61,7 +62,7 @@ sub finddir {
 
     # Get the list of files in the current directory.
 
-    opendir(DIR,'.') || warn "Can't open $dir: $!\n";
+    opendir(DIR,'.') || (warn "Can't open $dir: $!\n", return);
     local(@filenames) = readdir(DIR);
     closedir(DIR);