From: Anders Johnson <ajohnson@nvidia.com>
Date: Sat, 15 Feb 2003 00:21:41 +0000 (+0000)
Subject: [perl #21031] $File::Find::name ne $_ w/no_chdir
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3bb6d3e5122054efefe647ff1c834b844fec2fa2;p=p5sagit%2Fp5-mst-13.2.git

[perl #21031] $File::Find::name ne $_ w/no_chdir
From: "Anders Johnson" (via RT) <perlbug-followup@perl.org>
Message-Id: <rt-21031-51306.12.8541374577158@bugs6.perl.org>

p4raw-id: //depot/perl@18809
---

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 8953e97..9b15494 100644
--- 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"