SigDie.pm
[
plain text
]
package
SigDie;
use
strict; our $DIE; $SIG{__DIE__} =
sub
{ $DIE = $@ }; 1;