X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Finccode-tie.t;h=5bbcc101a386e774ea38d0bd51613046ff0fa586;hb=21fa6956243df9cb622bebfa0934ea7923519b4f;hp=43388dd050e2f3b1187e02160bbd2af776216807;hpb=c38a65302a7e2e2ea9b8748d368c87d573add6fd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/inccode-tie.t b/t/op/inccode-tie.t
index 43388dd..5bbcc10 100644
--- 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;
     }
 }