diff options
author | John Malmberg <wb8tyw@gmail.com> | 2009-01-04 14:48:08 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2009-01-08 14:37:12 -0600 |
commit | 3e2a970dfeb55332005c7648ee670aa10bb9b414 (patch) | |
tree | 89a2fa01662e230067bacfac17b208af0cc66d0d /t/x2p | |
parent | c45e3c48987b7047e978ca6e6560a6ebb42d9e5d (diff) | |
download | perl-3e2a970dfeb55332005c7648ee670aa10bb9b414.tar.gz |
t/x2p/s2p.t fix for VMS in UNIX mode
Message-id: <49612088.4010005@gmail.com>
When VMS is in UNIX mode, conversions from UNIX specifications to VMS
can result in a trailing '.' which needs to be removed if the intent is
to default the extension.
Diffstat (limited to 't/x2p')
-rwxr-xr-x | t/x2p/s2p.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t index 85df3648ab..20000bfb55 100755 --- a/t/x2p/s2p.t +++ b/t/x2p/s2p.t @@ -793,6 +793,12 @@ 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); + # Converting file specs from Unix format to VMS with the extended + # character set active can result in a trailing '.' added for null + # extensions. This must be removed if the intent is to default the + # extension. + $s2p =~ s/\.$//; + $psed =~ s/\.$//; $s2p = VMS::Filespec::rmsexpand($s2p, '.com'); $psed = VMS::Filespec::rmsexpand($psed, '.com'); } |