From: Wolfgang Laun Date: Sun, 9 Dec 2001 13:45:06 +0000 (+0100) Subject: ID 20011206.007 File::Find:name set to empty string for "/" X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00f4e5f0f8f9ab7a3ccc1dd6729033740c59fc4f;p=p5sagit%2Fp5-mst-13.2.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 {