Moved prototype check to XS code, allowing the .pm file change from yesterday

[perl5.git] / vms / mms2make.pl

diff --git a/vms/mms2make.pl b/vms/mms2make.pl
index 6fdc924..7795e4a 100644 (file)
--- a/vms/mms2make.pl
+++ b/vms/mms2make.pl
@@ -1,10 +1,10 @@
 #!/usr/bin/perl
 #
 #  mms2make.pl - convert Descrip.MMS file to Makefile
-#  Version 2.0 29-Sep-1994
+#  Version 2.2 29-Jan-1996
 #  David Denholm <denholm@conmat.phys.soton.ac.uk>
 #
-#  1.0  06-Aug-1994  Charles Bailey  bailey@genetics.upenn.edu
+#  1.0  06-Aug-1994  Charles Bailey  bailey@newman.upenn.edu
 #    - original version
 #  2.0  29-Sep-1994  David Denholm <denholm@conmat.phys.soton.ac.uk>
 #    - take action based on MMS .if / .else / .endif
@@ -16,15 +16,17 @@
 #      we deselect any other line if $conditions[0] is 0
 #      I'm being very lazy - push a 1 at start, then dont need to check for
 #      an empty @conditions [assume nesting in descrip.mms is correct] 
-#  2.1  26-Feb-1995  Charles Bailey  bailey@genetics.upenn.edu
+#  2.1  26-Feb-1995  Charles Bailey  bailey@newman.upenn.edu
 #    - handle MMS macros generated by MakeMaker
+#  2.2  29-Jan-1996  Charles Bailey  bailey@newman.upenn.edu
+#    - Fix output file name to work under Unix
 
 if ($#ARGV > -1 && $ARGV[0] =~ /^[\-\/]trim/i) {
   $do_trim = 1;
   shift @ARGV;
 }
 $infile  = $#ARGV > -1 ? shift(@ARGV) : "Descrip.MMS";
-$outfile = $#ARGV > -1 ? shift(@ARGV) : "Makefile.";
+$outfile = $#ARGV > -1 ? shift(@ARGV) : "Makefile";
 
 # set any other args in %macros - set VAXC by default
 foreach (@ARGV) { $macros{"\U$_"}=1 }