Fun with $SIG{__DIE__}

[Adam]

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};

Thanks!

[plaid]

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};

[Adam]

That works. I guess I should RTFM more closely. :) Thanks.