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 9c81c6a..1f80f06 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -215,6 +215,9 @@ through a collection of variables.
 
 =back
 
+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:
 
     $File::Find::dir  = /some/path/
@@ -237,18 +240,6 @@ table below summarizes all variants:
               /etc               /                 /etc
               /etc/x             /etc              /etc/x
 
-Do not modify these variables. If you want to use C<$_>, it must
-be restored to its initial value before returning from the
-function. C<local> may be used for this purpose:
-
-  sub callback {
-    open my $fh, '<', $_ or die "Cannot open $_ for input: $!\n";
-    local $_; # localize $_ for the remainder of the routine
-    while (<$fh>) {
-      # manipulate $_
-    }
-    # $_ will be restored upon leaving
-  }
 
 When <follow> or <follow_fast> are in effect, there is
 also a C<$File::Find::fullname>.  The function may set