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 (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 or die $@;
+       do $file; die $@ if $@;
        exit;
     }
 }