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