Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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

by Adam (Vicar)
on Nov 01, 2000 at 02:38 UTC ( #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.

Comment on And yet more $SIG{__DIE__} fun...
Download Code
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;
      Ooooh. I've never used $^S before. Thanks!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://39345]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2015-07-03 21:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (56 votes), past polls