This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #21031] $File::Find::name ne $_ w/no_chdir
authorAnders Johnson <ajohnson@nvidia.com>
Sat, 15 Feb 2003 00:21:41 +0000 (00:21 +0000)
committerhv <hv@crypt.org>
Sun, 2 Mar 2003 21:54:53 +0000 (21:54 +0000)
From: "Anders Johnson" (via RT) <perlbug-followup@perl.org>
Message-Id: <rt-21031-51306.12.8541374577158@bugs6.perl.org>

p4raw-id: //depot/perl@18809

lib/File/Find.pm

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