diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-04-15 16:48:36 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-16 02:16:35 +0000 |
| commit | 9ae2b9a01756a2a2ea4071ab263cdb052d634e1a (patch) | |
| tree | 1045589d70fded42e615dc5146906ca643106985 /t | |
| parent | c72515e3b3831d7662a8502dab05d997460b04a5 (diff) | |
| download | perl-9ae2b9a01756a2a2ea4071ab263cdb052d634e1a.tar.gz | |
s2p fix for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a05101500b8e13f80e770@[172.16.52.1]>
p4raw-id: //depot/perl@15941
Diffstat (limited to 't')
| -rwxr-xr-x | t/x2p/s2p.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t index 15219fc987..50d2483f53 100755 --- a/t/x2p/s2p.t +++ b/t/x2p/s2p.t @@ -789,6 +789,11 @@ my $plsed = "s2pt$$.pl"; # various command lines for my $s2p = File::Spec->catfile( File::Spec->updir(), 'x2p', 's2p' ); my $psed = File::Spec->catfile( File::Spec->curdir(), 'psed' ); +if ($^O eq 'VMS') { + # default in the .com extenson if it's not already there + $s2p = VMS::Filespec::rmsexpand($s2p, '.com'); + $psed = VMS::Filespec::rmsexpand($psed, '.com'); +} my $sedcmd = [ $psed, '-f', $script, $stdin ]; my $s2pcmd = [ $s2p, '-f', $script ]; my $plcmd = [ $plsed, $stdin ]; @@ -830,6 +835,10 @@ for my $tc ( sort keys %testcase ){ close( IN ) || goto FAIL_BOTH; } + # on VMS, runperl eats blank lines to work around + # spurious newlines in pipes + $testcase{$tc}{expect} =~ s/\n\n/\n/ if $^O eq 'VMS'; + # run and compare # $psedres = runperl( args => $sedcmd ); |