[perl #21031] $File::Find::name ne $_ w/no_chdir

[p5sagit/p5-mst-13.2.git] / lib / File / Find.pm

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 8953e97..9b15494 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -700,6 +700,7 @@ sub _find_opt {
            }
 
            $name = $abs_dir . $_; # $File::Find::name
+           $_ = $name if $no_chdir;
 
            { $wanted_callback->() }; # protect against wild "next"