Re: When should a wheel be reinvented

The patch is pretty trivial (minimal testing but don't see why it should not be stable). The value of $_ is saved and restored so you can change/use it in &wanted with impunity. Note as we are passing 3 values to the &wanted every time there will be a slowdown but this is probably (speculation) trivial compared to iterating over the directory tree.

$ diff Find.pm FindPatch.pm
1c1
< package File::Find;
---
> package File::FindPatch;
394c394
<             { &$wanted_callback }; # protect against wild "next"
---
>             { my $save=$_; &$wanted_callback($save,$name,$dir); $_=$
+save }; # protect against wild "next"
450c450
<             { &$wanted_callback };    # protect against wild "next"
---
>             { my $save=$_; &$wanted_callback($save,$name,$dir); $_=$
+save };   # protect against wild "next"
495c495
<               { &$wanted_callback }; # protect against wild "next"
---
>               { my $save=$_; &$wanted_callback($save,$name,$dir); $_
+=$save }; # protect against wild "next"
519c519
<                       { &$wanted_callback }; # protect against wild 
+"next"
---
>                       { my $save=$_; &$wanted_callback($save,$name,$
+dir); $_=$save }; # protect against wild "next"
525c525
<                   { &$wanted_callback }; # protect against wild "nex
+t"
---
>                   { my $save=$_; &$wanted_callback($save,$name,$dir)
+; $_=$save }; # protect against wild "next"

$
[download]

cheers

tachyon

Comment on Re: When should a wheel be reinvented Download Code

Replies are listed 'Best First'.
Re^2: When should a wheel be reinvented by theorbtwo (Prior) on Jun 30, 2004 at 05:13 UTC
All of your `my $save=$_; ... $_=$save`s can be replaced by `local $_=$_; ...` Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).	[reply] [d/l] [select]
Re^3: When should a wheel be reinvented by tachyon (Chancellor) on Jun 30, 2004 at 11:18 UTC
Good point, not that it makes much practical difference.	[reply]
Re^4: When should a wheel be reinvented by ysth (Canon) on Jun 30, 2004 at 17:56 UTC
Yes, it does; wanted is AFAIK allowed to bail out with an exception (die) or loop operator (next, last, redo) or even goto. Update: never mind; obviously if you leave File::Find::find, that no longer cares if you modify $_.	[reply]


more useful options
	PerlMonks