This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In t/op/reset.t, don't eval "" in void context - die if something goes wrong.
[perl5.git] / t / op / reset.t
index e1486a5..3094979 100644 (file)
@@ -98,7 +98,7 @@ use threads;
 use threads::shared;
 
 sub wipe {
-    eval 'no warnings; sub b {}';
+    eval 'no warnings; sub b {}; 1' or die $@;
 }
 
 sub lock_then_wipe {