From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 9 Jan 2007 12:31:17 +0000 (+0000)
Subject: Re: Change 29723 breaks t/op/inccode-tie.t on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc97bb9e08974d3aba0c2bf61277f68eea5a2a6a;p=p5sagit%2Fp5-mst-13.2.git

Re: Change 29723 breaks t/op/inccode-tie.t on Win32
Message-ID: <20070109123116.GC30742@plum.flirble.org>

p4raw-id: //depot/perl@29734
---

diff --git a/t/op/inccode-tie.t b/t/op/inccode-tie.t
index 7f11004..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 or die $@;
+	do $file; die $@ if $@;
 	exit;
     }
 }