Re: Change 29723 breaks t/op/inccode-tie.t on Win32
authorNicholas Clark <nick@ccl4.org>
Tue, 9 Jan 2007 12:31:17 +0000 (12:31 +0000)
committerSteve Hay <SteveHay@planit.com>
Tue, 9 Jan 2007 12:44:15 +0000 (12:44 +0000)
Message-ID: <20070109123116.GC30742@plum.flirble.org>

p4raw-id: //depot/perl@29734

t/op/inccode-tie.t

index 7f11004..5bbcc10 100644 (file)
@@ -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;
     }
 }