[perl #50538] when( @n && %n ) fails to smart match
[p5sagit/p5-mst-13.2.git] / t / lib / HasSigDie.pm
1 package HasSigDie;
2
3 $SIG{__DIE__} = sub { "Die, Bart, Die!" };
4
5 1;
6