$SIG return to default

[dolfantimmy]

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/