in reply to Re: Re: File::Find exitin thread File::Find exit
#!/perl/bin/perl -wl sub x { last } for(1 .. 3) { print; x(); } print "done"; [download]
Exiting subroutine via last at test.pl line 2. 1 done