A combination of $SIG{__DIE__} and $^S is what is recommended by Log::Log4Perl
All the usages I have seen invert the conditions that brian d foy was talking about in his article; the $SIG{__DIE__} handler is skipped in eval{}
i.e.:
$SIG{__DIE__} = sub { return if $^S; # ignore die in an eval block # Get the actual caller for the "die" and not the wrapper local $Log::Log4perl::caller_depth; $Log::Log4perl::caller_depth++; LOGDIE($_[0]); };
In reply to Re: How bad is $SIG{__DIE__} really?
by ateague
in thread How bad is $SIG{__DIE__} really?
by haukex
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |