Commit | Line | Data |
---|---|---|
04955c14 | 1 | #!/usr/bin/perl -w |
2 | ||
3 | BEGIN { | |
4 | if( $ENV{PERL_CORE} ) { | |
5 | chdir 't'; | |
6 | @INC = '../lib'; | |
7 | } | |
8 | } | |
9 | ||
10 | # Make sure this is in place before Test::More is loaded. | |
11 | my $handler_called; | |
12 | BEGIN { | |
13 | $SIG{__DIE__} = sub { $handler_called++ }; | |
14 | } | |
15 | ||
16 | use Test::More tests => 2; | |
17 | ||
18 | ok !eval { die }; | |
19 | is $handler_called, 1, 'existing DIE handler not overridden'; |