HOME


sh-3ll 1.0
DIR:/usr/share/doc/perl-Test-Simple/t/lib/
Upload File :
Current File : //usr/share/doc/perl-Test-Simple/t/lib/SigDie.pm
package SigDie;

use strict;

our $DIE;
$SIG{__DIE__} = sub { $DIE = $@ };

1;