Re: Stopping code in eval

[liz]

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