[perl #71204] diagnostics.pm suppresses 'Use of uninitialized value in range (or...

[p5sagit/p5-mst-13.2.git] / t / x2p / s2p.t

diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t
old mode 100755 (executable)
new mode 100644 (file)
index 50d2483..95db0e2
--- a/t/x2p/s2p.t
+++ b/t/x2p/s2p.t
@@ -36,7 +36,6 @@ BEGIN {
     @INC = ( '../lib' );
 }
 
-### use Test::More;
 use File::Copy;
 use File::Spec;
 require './test.pl';
@@ -791,6 +790,14 @@ my $s2p  = File::Spec->catfile( File::Spec->updir(), 'x2p', 's2p' );
 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);
+  $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');
 }
@@ -846,7 +853,7 @@ for my $tc ( sort keys %testcase ){
 
     # 2nd test: run s2p
     # translate the sed script to a Perl program
-    
+
     my $perlprog = runperl( args => $s2pcmd );
     open( PP, ">$plsed" ) || goto FAIL_S2P;
     print PP $perlprog;