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 (executable)
--- 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');
 }