I need to use $SIG to modify the behavior of die in a portion of my
code. The module I am calling uses die instead of returning a certain
error, that I EXPECT to encounter. So, I can do this....
$SIG{_ _DIE_ _} = sub {
my $message = shift;
print STDOUT "Script died with this message:\n";
print STDOUT "$message\n";
};
However, I only want this modified behavior in one small section of
the code. How do I return the behavior to it's default?
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
