Adam has asked for the wisdom of the Perl Monks concerning the following question:

So I was working with $SIG{__DIE__} trying to do some fancy stuff and I discovered that $SIG{__DIE__} gets called from within an eval block! This was really not cool since I wanted to use the eval block to capture the die. Sigh. Any ideas? 
#!perl -w
use strict;
$SIG{__DIE__} = sub { print "SIG DIE called!\n", caller, $/ };
eval qq{die 'inside eval!'};
print uc($@);

__END__
The above code, when run, outputs:

SIG DIE called!
main(eval 1)1
INSIDE EVAL! AT (EVAL 1) LINE 1.

[download]

Replies are listed 'Best First'.
Re: And yet more $SIG{__DIE__} fun...
by Fastolfe (Vicar) on Nov 01, 2000 at 02:42 UTC
    This is adequately documented in perlvar (%SIG) and the documentation for die (at the bottom). A workaround is to put this as the first line in your signal handler for __DIE__: 
    die @_ if $^S;

    [download]
[reply]
[d/l]
[select]
      Ooooh. I've never used $^S before. Thanks!
[reply]

Back to Seekers of Perl Wisdom