Reverting change #27953, as it appears that File::Find has

[p5sagit/p5-mst-13.2.git] / lib / File / Find.pm

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index e3e6563..1f80f06 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -121,7 +121,9 @@ If either I<follow> or I<follow_fast> is in effect:
 =item *
 
 It is guaranteed that an I<lstat> has been called before the user's
-C<wanted()> function is called. This enables fast file checks involving S< _>.
+C<wanted()> function is called. This enables fast file checks involving S<_>.
+Note that this guarantee no longer holds if I<follow> or I<follow_fast>
+are not set.
 
 =item *
 
@@ -213,7 +215,8 @@ through a collection of variables.
 
 =back
 
-Don't modify these variables.
+The above variables have all been localized and may be changed without
+effecting data outside of the wanted function.
 
 For example, when examining the file F</some/path/foo.ext> you will have:
 
@@ -608,8 +611,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};