X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/3236f110cb098d9081961e6c9f4585ecaf729cc5..e81465beff59e6c9907613fe00ebce59d81fb1e8:/t/op/regexp_noamp.t

diff --git a/t/op/regexp_noamp.t b/t/op/regexp_noamp.t
index 8a6dd28..9aa00b5 100755
--- a/t/op/regexp_noamp.t
+++ b/t/op/regexp_noamp.t
@@ -3,7 +3,7 @@
 $skip_amp = 1;
 for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
   if (-r $file) {
-    do $file;
+    do $file or die $@;
     exit;
   }
 }