From: Bram <perl-rt@wizbit.be>
Date: Tue, 12 Aug 2008 19:05:00 +0000 (+0200)
Subject: Re: Change 34184: Convert all unimaginative (ie race condition) temporary file names to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06d90eb2f694021a5def99acedeffe3d57873a83;p=p5sagit%2Fp5-mst-13.2.git

Re: Change 34184: Convert all unimaginative (ie race condition) temporary file names to
Message-ID: <20080812190500.3ns5yf7ibocgo0w0@horde.wizbit.be>

(Change 34184 missed one Comp.try in the MSWin32 case, which caused this
test to fail on Win32)

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

diff --git a/t/comp/multiline.t b/t/comp/multiline.t
index 45771ea..1af76fc 100755
--- a/t/comp/multiline.t
+++ b/t/comp/multiline.t
@@ -42,7 +42,7 @@ is($z, $y,  'basic multiline reading');
 is($count, 7,   '    line count');
 is($., 7,       '    $.' );
 
-$out = (($^O eq 'MSWin32') || $^O eq 'NetWare' || $^O eq 'VMS') ? `type Comp.try`
+$out = (($^O eq 'MSWin32') || $^O eq 'NetWare' || $^O eq 'VMS') ? `type $filename`
     : ($^O eq 'MacOS') ? `catenate $filename`
     : `cat $filename`;