Update to include latest Test::Builder alpha

[perl5.git] / cpan / Test-Simple / t / dont_overwrite_die_handler.t

diff --git a/cpan/Test-Simple/t/dont_overwrite_die_handler.t b/cpan/Test-Simple/t/dont_overwrite_die_handler.t
index 0657a06..51f4d08 100644 (file)
--- a/cpan/Test-Simple/t/dont_overwrite_die_handler.t
+++ b/cpan/Test-Simple/t/dont_overwrite_die_handler.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl -w
+use Config; # To prevent conflict with some strawberry-portable versions
 
 BEGIN {
     if( $ENV{PERL_CORE} ) {
@@ -15,5 +16,6 @@ BEGIN {
 
 use Test::More tests => 2;
 
+$handler_called = 0;
 ok !eval { die };
 is $handler_called, 1, 'existing DIE handler not overridden';