And yet more $SIG{__DIE_


We don't bite newbies here... much
	PerlMonks

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

by Adam (Vicar)

on Nov 01, 2000 at 02:38 UTC ( [id://39345]=perlquestion: print w/replies, xml )

Need Help??

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]

Comment on And yet more $SIG{__DIE__} fun... Download Code

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]
RE: Re: And yet more $SIG{__DIE__} fun... by Adam (Vicar) on Nov 01, 2000 at 02:52 UTC
Ooooh. I've never used $^S before. Thanks!	[reply]