ID 20011206.007 File::Find:name set to empty string for "/"

Message-ID: <200112091345060760.00929EA9@smtp.chello.at>

p4raw-id: //depot/perl@13552

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index b772f9d..f43329d 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -550,6 +550,8 @@ sub _find_opt {
                $cwd = "$cwd:" unless ($cwd =~ /:$/); # for safety
 
                if ($top_item eq $File::Find::current_dir) {
+                  # avoid empty name after return to '/'
+                  $name = '/' unless length( $name );
                    $abs_dir = $cwd;
                }
                else {