diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2005-08-10 19:26:03 -0400 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-08-11 07:35:27 +0000 |
| commit | 16ed468695c21630f18883bfbedc3d5170ddc8b2 (patch) | |
| tree | dc0fb151b14d61b21fd69a495a06aee634f4f01a /t/x2p | |
| parent | 6cd63c21c135f707c2046a8512b70b74c3e1000c (diff) | |
| download | perl-16ed468695c21630f18883bfbedc3d5170ddc8b2.tar.gz | |
[patch] blead@25282 - VMS specific fixes. [2nd try]
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <42FAC54B.2050207@qsl.net>
p4raw-id: //depot/perl@25284
Diffstat (limited to 't/x2p')
| -rwxr-xr-x | t/x2p/s2p.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t index 39c6cd8055..85df3648ab 100755 --- a/t/x2p/s2p.t +++ b/t/x2p/s2p.t @@ -791,6 +791,8 @@ 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::vmsify($s2p); + $psed = VMS::Filespec::vmsify($psed); $s2p = VMS::Filespec::rmsexpand($s2p, '.com'); $psed = VMS::Filespec::rmsexpand($psed, '.com'); } |