From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 8 Sep 2008 02:30:50 +0000 (+0000)
Subject: Make sure temp file has an extension on VMS to work with the new
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3551ef6f06c9dcf7d75756f812148d56a3786992;p=p5sagit%2Fp5-mst-13.2.git

Make sure temp file has an extension on VMS to work with the new
temp file name generator in t/test.pl

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

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