[p5sagit/p5-mst-13.2.git] / ext / Test-Simple / t / lib / SigDie.pm

package SigDie;

use strict;

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

1;
Commit	Line	Data
87f9c3f5	1	package SigDie;
87f9c3f5	2
3e887aae	3	use strict;
	4
	5	our $DIE;
87f9c3f5	6	$SIG{__DIE__} = sub { $DIE = $@ };
	7
	8	1;