http://qs1969.pair.com?node_id=843206


in reply to File::Find and $_ in the wanted sub

Localizing $_ is an option, also:

#!/usr/bin/perl use File::Find; #find (\&testy, "."); $_ = 'Main Line...'; testy ('i am a nice parameter'); print "$_\n"; sub testy { local $_ = shift; #Localizing it is cool, also..... print "$_\n" ; } __END__ ~Output~~ i am a nice parameter Main Line...

Good luck. -c

PS: The first parameter passed to a sub is in the first element of the list @_, $_[0], which is NOT the same a $_.