diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-26 14:45:53 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-26 14:45:53 +0000 |
| commit | 1bb1745960244153b0ed527cc2c3eb327b8de825 (patch) | |
| tree | a912f77294fed4af9ba6ee4fd179d219c0eb237a | |
| parent | d588972218452be2a52ffc42d861cd8feacb6726 (diff) | |
| download | perl-1bb1745960244153b0ed527cc2c3eb327b8de825.tar.gz | |
Fix change 25597 for non-Windows platforms
p4raw-id: //depot/perl@25602
| -rw-r--r-- | lib/File/Find.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index e3e6563882..b481fd8ee6 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -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}; |