This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bop.t: Delete $SIG{__WARN__}
authorFather Chrysostomos <sprout@cpan.org>
Mon, 19 Sep 2016 03:20:06 +0000 (20:20 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 19 Sep 2016 03:20:44 +0000 (20:20 -0700)
It is only needed for one block of tests.  Leaving the handler in
place makes it harder to add temporary diagnostics elsewhere in
the code.  (Where did my warning go?  Hey, why is ‘warn’ not work-
ing?????!!!! :-)

t/op/bop.t

index 1f96e9b..f9bf1c5 100644 (file)
@@ -567,6 +567,8 @@ for (
     }
 }
 
+delete $SIG{__WARN__};
+
 my $strval;
 
 {