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

So need to propagate errors with $@.

p4raw-id: //depot/perl@29723

1 files changed, 1 insertions, 1 deletions

diff --git a/t/op/regexp_noamp.t b/t/op/regexp_noamp.t
index 8a6dd28206..9aa00b50a9 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;
   }
 }