diff options
| author | Michael De La Rue <mikedlr@it.com.pl> | 1996-09-07 21:37:44 +0200 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-07 21:37:44 +0200 |
| commit | 47a735e8c1e6b0fa532abd5b711f042582ae8c0c (patch) | |
| tree | e3da4a99ac7e3dde9cac0ed74782fc700e5dc324 /lib/File/Find.pm | |
| parent | f0542300a32fede4ac01061afeccc484e300112d (diff) | |
| download | perl-47a735e8c1e6b0fa532abd5b711f042582ae8c0c.tar.gz | |
File::Find assumes $_ remains unchanged; bug
The File::Find perl module assumes that the $_ variable remains unchanged
through the user defined function which is callbacked from find. It carries
out a stat operation
Simplest fix is merely to document this
Diffstat (limited to 'lib/File/Find.pm')
| -rw-r--r-- | lib/File/Find.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 03ace14fd7..b0312be10e 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -31,6 +31,9 @@ C<"$File::Find::dir/$_">. You are chdir()'d to $File::Find::dir when the function is called. The function may set $File::Find::prune to prune the tree. +File::Find assumes that you don't alter the $_ variable. If you do then +make sure you return it to its original value before exiting your function. + This library is primarily for the C<find2perl> tool, which when fed, find2perl / -name .nfs\* -mtime +7 \ |