Merge bf61293 into 7cc588f

frioux · Jul 24, 2014 · d7c9e61 · d7c9e61
2 parents 7cc588f + bf61293
commit d7c9e61
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/t/import.t b/t/import.t
@@ -1,14 +1,17 @@
 use strict;
 use Test::More;
 
+no warnings;
 use warnings::illegalproto;
 
-$SIG{__WARN__} = sub { die $_[0] };
+my $warn;
+$SIG{__WARN__} = sub { $warn = $_[0] };
 
 my $x = eval "sub (frew) { 1 }";
-like $@, qr/prototype/, 'dies on "bad" prototype';
+like $warn, qr/prototype/, 'dies on "bad" prototype';
 
+undef $warn;
 eval 'my $f = undef . "foo"';
-is $@, '', 'other warnings not enabled';
+is $warn, undef, 'other warnings not enabled';
 
 done_testing;