[blead-227-gbd2db5d] t/x2p/s2p.t fix for VMS in UNIX mode
[email protected] (John Malmberg)
| Newsgroups | perl.perl5.porters,perl.vmsperl |
|---|---|
| Message-ID | <[email protected]> |
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 [email protected] Personal Opinion Only -- My qsl.net e-mail address is temporarily out of service.
x2p_s2p_t.gdiff
(text/plain, 758 B)
--- /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');
}