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:
(Note that DEBUGING is a constant declared with use constant) And I wanted to catch all those lines that saidprint LOG "Some message like, \$v=$v\n" if DEBUGING;
by catching the die signal. But I'm not sure how to catch the message that die was called with. Does any one know?do this or die "couldn't do it.";
Thanks!$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 | |
by Adam (Vicar) on Jul 08, 2000 at 00:54 UTC |
Back to
Seekers of Perl Wisdom