$File::Find::name doesn't reflect top level files

correctly (from Simon Cozens <simon@brecon.co.uk>)

p4raw-id: //depot/perl@5849

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 22a8ab3aed..ac73f1b5eb 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -349,7 +349,7 @@ sub _find_opt {
 
         unless ($Is_Dir) {
 	    unless (($_,$dir) = File::Basename::fileparse($abs_dir)) {
-		($dir,$_) = ('.', $top_item);
+		($dir,$_) = ('./', $top_item);
 	    }
 
             $abs_dir = $dir;
@@ -370,9 +370,9 @@ sub _find_opt {
                 warn "Couldn't chdir $abs_dir: $!\n";
                 next Proc_Top_Item;
             }
-            
-            $name = $abs_dir;
-            
+
+            $name = $abs_dir . $_;
+
             &$wanted_callback;
 
         }