Fun with $SIG{__DIE_


The stupid question is the question not asked
	PerlMonks

Fun with $SIG{DIE}

by Adam (Vicar)

on Jul 08, 2000 at 00:41 UTC ( [id://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;
[download]

(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.";
[download]

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};
[download]

Thanks!

Comment on Fun with $SIG{__DIE__} Select or Download Code

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.` [download] So you probably want something like: `$SIG{__DIE__}=sub {print LOG "Script Died: $_[0]" and close LOG if DEB +UGING};` [download]	[reply] [d/l] [select]
RE: Re: Fun with $SIG{__DIE__} by Adam (Vicar) on Jul 08, 2000 at 00:54 UTC
That works. I guess I should RTFM more closely. :) Thanks.	[reply]