do $file; won't propagate errors from die, as do is an implicit eval.

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

diff --git a/t/op/regexp_noamp.t b/t/op/regexp_noamp.t
index 8a6dd28..9aa00b5 100755 (executable)
--- 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) {
 $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;
   }
 }
     exit;
   }
 }