summaryrefslogtreecommitdiff
path: root/t/x2p
diff options
context:
space:
mode:
authorJohn Malmberg <wb8tyw@gmail.com>2009-01-04 14:48:08 -0600
committerCraig A. Berry <craigberry@mac.com>2009-01-08 14:37:12 -0600
commit3e2a970dfeb55332005c7648ee670aa10bb9b414 (patch)
tree89a2fa01662e230067bacfac17b208af0cc66d0d /t/x2p
parentc45e3c48987b7047e978ca6e6560a6ebb42d9e5d (diff)
downloadperl-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-xt/x2p/s2p.t6
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');
}