Re: [PATCH] Tests for File::Compare

[p5sagit/p5-mst-13.2.git] / t / lib / extutils.t

diff --git a/t/lib/extutils.t b/t/lib/extutils.t
index 3d7f56f..27512fe 100644 (file)
--- a/t/lib/extutils.t
+++ b/t/lib/extutils.t
@@ -35,7 +35,7 @@ my @names = ("THREE", {name=>"OK4", type=>"PV",},
              {name=>"OK5", type=>"PVN",
               value=>['"not ok 5\\n\\0ok 5\\n"', 15]},
              {name => "FARTHING", type=>"NV"},
-             {name => "NOT_ZERO", type=>"UV", value=>~0 . "u"});
+             {name => "NOT_ZERO", type=>"UV", value=>"~(UV)0"});
 
 my @names_only = map {(ref $_) ? $_->{name} : $_} @names;
 
@@ -163,12 +163,15 @@ WriteMakefile(
                (#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};