diff options
Diffstat (limited to 'lib/find.pl')
| -rw-r--r-- | lib/find.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/find.pl b/lib/find.pl index b853d12f40..8dab0540f3 100644 --- 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); |