/usr/share/doc/perl-Test-Simple-0.98/t/lib/ Current File: //usr/share/doc/perl-Test-Simple-0.98/t/lib/SigDie.pm

package SigDie;

use strict;

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

1;