From be56ab1f8df33612d7b40c6ada095aa7922d7626 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 17 Feb 2004 23:22:45 +0000
Subject: It's better to localize *_ than $_, to avoid magic leakage

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

(limited to 'lib/File')

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index c81c02e077..5e18cfce35 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -3,7 +3,7 @@ use 5.006;
 use strict;
 use warnings;
 use warnings::register;
-our $VERSION = '1.06';
+our $VERSION = '1.07';
 require Exporter;
 require Cwd;
 
@@ -591,7 +591,8 @@ sub _find_opt {
     local ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
 	$follow_skip, $full_check, $untaint, $untaint_skip, $untaint_pat,
 	$pre_process, $post_process, $dangling_symlinks);
-    local($dir, $name, $fullname, $prune, $_);
+    my @_args = @_;
+    local($dir, $name, $fullname, $prune, *_);
 
     my $cwd            = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd();
     my $cwd_untainted  = $cwd;
@@ -618,7 +619,7 @@ sub _find_opt {
     my ($abs_dir, $Is_Dir);
 
     Proc_Top_Item:
-    foreach my $TOP (@_) {
+    foreach my $TOP (@_args) {
 	my $top_item = $TOP;
 
 	if ($Is_MacOS) {
-- 
cgit v1.2.1