Change 34315 by [EMAIL PROTECTED] on 2008/09/08 02:30:50
Make sure temp file has an extension on VMS to work with the new
temp file name generator in t/test.pl
Affected files ...
... //depot/perl/t/comp/multiline.t#15 edit
Differences ...
==== //depot/perl/t/comp/multiline.t#15 (xtext) ====
Index: perl/t/comp/multiline.t
--- perl/t/comp/multiline.t#14~34205~ 2008-08-19 03:48:16.000000000 -0700
+++ perl/t/comp/multiline.t 2008-09-07 19:30:50.000000000 -0700
@@ -42,7 +42,8 @@
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`;
End of Patch.
