If your only worry is about recursing too deeply, you could do something like this:
eval {
use warnings 'recursion';
local $SIG{__WARN__} = sub { die "Too deep" if $_[0] =~ m#^Deep re
+cursion# };
# your code
};
# check $@ if you want to here
One of Perl's nice features is that it can actually output a warning when you're recursing too deeply (for whatever Perl considers to be "too deeply"). This trick changes that warning into an exit condition. This is a very simple case, if you need to keep the normal __WARN__ handler behaviour, things get a little more complicated.
Hope this helps.
Liz
