I have not tested this or anything on 5.8.7, I am in the process of
moving my changes over to 5.8.7.
t/pod/find.t
If you want to do a VMS specific compare of directory names, you need to
make sure that the directory specification is in VMS format.
t/x2p/s2p.t
It is required to VMSIFY some files because the trailing dot is stripped
from UNIX file names with no extension, and that changes how RMSEXPAND
deals with such files.
Commented out debugging statements are also still present, just in case
I still needed them.
Next will come my makemaker changes as I move them over to 5.8.7.
-John
[EMAIL PROTECTED]
Personal Opinion Only
--- t/pod/find.t_5_8_6 Thu May 19 13:31:23 2005
+++ t/pod/find.t Thu May 19 13:32:12 2005
@@ -88,6 +88,7 @@
require Config;
if ($^O eq 'VMS') { # privlib is perl_root:[lib] OK but not under mms
+ $result = VMS::Filespec::vmsify($result); #if you want VMS you need to
force it.
$compare = "lib.File]Find.pm";
$result =~ s/perl_root:\[\-?\.?//i;
$result =~ s/\[\-?\.?//i; # needed under `mms test`
--- t/x2p/s2p.t_5_8_6 Wed May 11 09:31:07 2005
+++ t/x2p/s2p.t Tue Jun 14 16:33:19 2005
@@ -789,10 +789,18 @@
# various command lines for
my $s2p = File::Spec->catfile( File::Spec->updir(), 'x2p', 's2p' );
my $psed = File::Spec->catfile( File::Spec->curdir(), 'psed' );
+#print STDERR "s2p = $s2p, psed = $psed\n";
if ($^O eq 'VMS') {
# default in the .com extenson if it's not already there
+
+ # VMS can be pretending it is UNIX, so if you want VMS filespecs out,
+ # you need to provide them in VMS format.
+ $s2p = VMS::Filespec::vmsify($s2p);
+ $psed = VMS::Filespec::vmsify($psed);
+#print STDERR "s2p = $s2p, psed = $psed\n";
$s2p = VMS::Filespec::rmsexpand($s2p, '.com');
$psed = VMS::Filespec::rmsexpand($psed, '.com');
+#print STDERR "s2p = $s2p, psed = $psed\n";
}
my $sedcmd = [ $psed, '-f', $script, $stdin ];
my $s2pcmd = [ $s2p, '-f', $script ];
@@ -850,7 +858,9 @@
# 2nd test: run s2p
# translate the sed script to a Perl program
+#print STDERR "s2pcmd = $s2pcmd, switches = $switches\n";
my $perlprog = runperl( args => $s2pcmd, switches => $switches );
+#print STDERR "perlprog = $perlprog\n";
open( PP, ">$plsed" ) || goto FAIL_S2P;
print PP $perlprog;
close( PP ) || goto FAIL_S2P;
