diff options
| author | Craig A. Berry <craigberry@mac.com> | 2008-09-08 02:30:50 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2008-09-08 02:30:50 +0000 |
| commit | 3551ef6f06c9dcf7d75756f812148d56a3786992 (patch) | |
| tree | 6bb16cf1ce0c871c9e1becc40f2c4dbb44a76979 /t/comp | |
| parent | cd1b270f9680acd60cc4f1c330aa6df2329d1db7 (diff) | |
| download | perl-3551ef6f06c9dcf7d75756f812148d56a3786992.tar.gz | |
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
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/multiline.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/comp/multiline.t b/t/comp/multiline.t index 1af76fce87..0409f8b878 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`; |