----- Original Message -----
From: "Beau E. Cox" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, July 14, 2003 5:17 AM
Subject: Stopping File::Find
> Hi -
>
> Any way to stop File::Find's directory scanning
> from the 'wanted' sucroutine? I would like to
> curtail processing early for while testing a script
> that is scanning a hugh directory tree.
>
> I can't find anything in the docs (am I missing it?)
>
Hi -
Well... here's what I ended up doing:
...
eval {
find (\&wanted, $source);
};
if ($@ && $@ !~ /__exit__/) {
print STDERR "[EMAIL PROTECTED]";
exit 8;
}
...
sub wanted
{
die "__exit__" if <some test>;
...
}
Sorta non-cool, but it works. Anyone else have a
better idea?
Aloha => Beau;
== please visit ==
<http://beaucox.com> => main site
<http://howtos.beaucox.com> => howtos
<http://PPM.beaucox.com> => perl PPMs
<http://CPAN.beaucox.com> => CPAN
== thank you ==
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
