And yet more $SIG{__DIE__} fun...

[Adam]

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.

[Fastolfe]

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;

[Adam]

Ooooh. I've never used $^S before. Thanks!