From 719911cc0ef424f213e0e6e02359decafbe1180f Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 21 Mar 2000 03:34:39 +0000
Subject: $File::Find::name doesn't reflect top level files correctly (from
 Simon Cozens <simon@brecon.co.uk>)

p4raw-id: //depot/perl@5849
---
 lib/File/Find.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib')

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;
 
         }
-- 
cgit v1.2.1