[blead-227-gbd2db5d] t/x2p/s2p.t fix for VMS in UNIX mode

[John Malmberg]

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.

-John
wb8...@gmail.com
Personal Opinion Only
--
My qsl.net e-mail address is temporarily out of service.
--- /rsync_root/perl/t/x2p/s2p.t        Tue Jun 13 14:29:33 2006
+++ t/x2p/s2p.t Fri Dec 26 16:48:47 2008
@@ -791,8 +791,14 @@
 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);
+  $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');
 }