Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Fun with $SIG{__DIE__}

by Adam (Vicar)
on Jul 08, 2000 at 00:41 UTC ( #21573=perlquestion: print w/replies, xml ) Need Help??

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

I am in the process of adding a bunch of debug commands to a script. They are of the form:
print LOG "Some message like, \$v=$v\n" if DEBUGING;
(Note that DEBUGING is a constant declared with use constant) And I wanted to catch all those lines that said
do this or die "couldn't do it.";
by catching the die signal. But I'm not sure how to catch the message that die was called with. Does any one know?
$SIG{__DIE__}=sub {print LOG "Script Died" and close LOG if DEBUGING}; # is what I have, but I want: $SIG{__DIE__}=sub {print LOG "Script Died: $msg" and close LOG if DEBU +GING};

Replies are listed 'Best First'.
Re: Fun with $SIG{__DIE__}
by plaid (Chaplain) on Jul 08, 2000 at 00:45 UTC
    From Programming Perl:
    The routine indicated by $SIG{__DIE__} is called when a fatal exception is about to be thrown. The error message is passed as the first argument.
    So you probably want something like:
    $SIG{__DIE__}=sub {print LOG "Script Died: $_[0]" and close LOG if DEB +UGING};
      That works. I guess I should RTFM more closely. :) Thanks.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (3)
As of 2020-09-30 00:53 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (155 votes). Check out past polls.