Instead of localising *_, use a dummy foreach loop to get

a local value of $_

p4raw-id: //depot/perl@22367

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 5e18cfc..5f590e2 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -591,8 +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);
-    my @_args = @_;
-    local($dir, $name, $fullname, $prune, *_);
+    local($dir, $name, $fullname, $prune);
+    for (my $_temp) { # creates a local $_ without retaining magic
 
     my $cwd            = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd();
     my $cwd_untainted  = $cwd;
@@ -619,7 +619,7 @@ sub _find_opt {
     my ($abs_dir, $Is_Dir);
 
     Proc_Top_Item:
-    foreach my $TOP (@_args) {
+    foreach my $TOP (@_) {
        my $top_item = $TOP;
 
        if ($Is_MacOS) {
@@ -743,6 +743,7 @@ sub _find_opt {
            }
        }
     }
+    }
 }
 
 # API: