From: Wolfgang Laun <Wolfgang.Laun@alcatel.at>
Date: Sun, 9 Dec 2001 13:45:06 +0000 (+0100)
Subject: ID 20011206.007 File::Find:name set to empty string for "/"
X-Git-Tag: accepted/trunk/20130322.191538~28956
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=00f4e5f0f8f9ab7a3ccc1dd6729033740c59fc4f;p=platform%2Fupstream%2Fperl.git

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
--- 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 {