From 00f4e5f0f8f9ab7a3ccc1dd6729033740c59fc4f Mon Sep 17 00:00:00 2001
From: Wolfgang Laun <Wolfgang.Laun@alcatel.at>
Date: Sun, 9 Dec 2001 14:45:06 +0100
Subject: [PATCH] ID 20011206.007 File::Find:name set to empty string for "/"
 Message-ID: <200112091345060760.00929EA9@smtp.chello.at>

p4raw-id: //depot/perl@13552
---
 lib/File/Find.pm | 2 ++
 1 file changed, 2 insertions(+)

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