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 cc34740..27512fe 100644 (file)
--- a/t/lib/extutils.t
+++ b/t/lib/extutils.t
@@ -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};