utf8cache.t: Skip only the XS-dependent test

[perl5.git] / t / op / reset.t

diff --git a/t/op/reset.t b/t/op/reset.t
index e1486a5..3094979 100644 (file)
--- a/t/op/reset.t
+++ b/t/op/reset.t
@@ -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 {