Some of our usual filename mangling. I was surprised to discover
that there is no portable way to get the name of the makefile, or at
least I couldn't get any variant of MM->{MAKEFILE} to do what I
expected. These tests pass fine after the patch with Compaq C 6.4 on
OpenVMS Alpha 7.2-1.
--- t/lib/extutils.t;-0 Mon May 28 21:42:22 2001
+++ t/lib/extutils.t Wed May 30 00:02:18 2001
@@ -163,12 +163,15 @@
(#ABSTRACT_FROM => "$package.pm", # XXX add this
AUTHOR => $0) : ())
);
-if (-f "Makefile") {
+my $makefile = ($^O eq 'VMS' ? 'descrip' : 'Makefile');
+my $makefile_ext = ($^O eq 'VMS' ? '.mms' : '');
+if (-f "$makefile$makefile_ext") {
print "ok 1\n";
} else {
print "not ok 1\n";
}
-push @files, "Makefile.old"; # Renamed by make clean
+my $makefile_rename = ($^O eq 'VMS' ? '.mms' : '.old');
+push @files, "$makefile$makefile_rename"; # Renamed by make clean
my $make = $Config{make};
--- t/pragma/autouse.t;-0 Mon May 28 19:51:33 2001
+++ t/pragma/autouse.t Tue May 29 20:38:42 2001
@@ -42,11 +42,12 @@
# Test that autouse's lazy module loading works. We assume that nothing
-# involved in this test uses Test::Soundex, which is pretty safe.
+# involved in this test uses Text::Soundex, which is pretty safe.
use File::Spec;
use autouse 'Text::Soundex' => qw(soundex);
my $mod_file = File::Spec->catfile(qw(Text Soundex.pm));
+$mod_file = VMS::Filespec::unixify($mod_file) if $^O eq 'VMS';
ok( !exists $INC{$mod_file} );
ok( soundex('Basset'), 'B230' );
ok( exists $INC{$mod_file} );
[end of patch]
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
