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
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 26 Sep 2005 14:45:53 +0000 (14:45 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 26 Sep 2005 14:45:53 +0000 (14:45 +0000)
p4raw-id: //depot/perl@25602

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};