startkve.t: Refactor setting of $errpat

[perl5.git] / t / op / inccode-tie.t

diff --git a/t/op/inccode-tie.t b/t/op/inccode-tie.t
index 43388dd..5bbcc10 100644 (file)
--- a/t/op/inccode-tie.t
+++ b/t/op/inccode-tie.t
@@ -8,7 +8,7 @@ tie @INC, 'Tie::StdArray';
 @INC = @orig_INC;
 for my $file ('./op/inccode.t', './t/op/inccode.t', ':op:inccode.t') {
     if (-r $file) {
-       do $file;
+       do $file; die $@ if $@;
        exit;
     }
 }