Change 13552: [PATCH] ID 20011206.007 File::Find:name set to empty string for "/"

[Jarkko Hietaniemi]

Change 13552 by jhi@alpha on 2001/12/09 16:23:14

        Subject: [PATCH] ID 20011206.007 File::Find:name set to empty string for "/"
        From: "Wolfgang Laun" <[EMAIL PROTECTED]>
        Date: Sun, 09 Dec 2001 13:45:06 +0100
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/File/Find.pm#56 edit

Differences ...

==== //depot/perl/lib/File/Find.pm#56 (text) ====
Index: perl/lib/File/Find.pm
--- perl/lib/File/Find.pm.~1~   Sun Dec  9 09:30:06 2001
+++ perl/lib/File/Find.pm       Sun Dec  9 09:30:06 2001
@@ -550,6 +550,8 @@
                $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 {
End of Patch.