This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix change 25597 for non-Windows platforms
[perl5.git] / lib / File / Find.pm
index e3e6563..b481fd8 100644 (file)
@@ -608,8 +608,8 @@ sub _find_opt {
     $post_process      = $wanted->{postprocess};
     $no_chdir          = $wanted->{no_chdir};
     $full_check        = $^O eq 'MSWin32' ? 0 : $wanted->{follow};
-    $follow            = $full_check || $^O eq 'MSWin32' ? 0 : 
-                             $wanted->{follow_fast};
+    $follow            = $^O eq 'MSWin32' ? 0 :
+                             $full_check || $wanted->{follow_fast};
     $follow_skip       = $wanted->{follow_skip};
     $untaint           = $wanted->{untaint};
     $untaint_pat       = $wanted->{untaint_pattern};