From: John Malmberg <wb8tyw@gmail.com>
Date: Sun, 4 Jan 2009 20:48:08 +0000 (-0600)
Subject: t/x2p/s2p.t fix for VMS in UNIX mode
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e2a970dfeb55332005c7648ee670aa10bb9b414;p=p5sagit%2Fp5-mst-13.2.git

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.
---

diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t
index 85df364..20000bf 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');
 }