[Merge] [perl #129916] Allow sub-in-stash outside of main

[perl5.git] / vms / mms2make.pl

diff --git a/vms/mms2make.pl b/vms/mms2make.pl
index 7795e4a..7a83052 100644 (file)
--- a/vms/mms2make.pl
+++ b/vms/mms2make.pl
@@ -14,7 +14,7 @@
 #      we invert top of stack at a .else
 #      we pop at a .endif
 #      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
+#      I'm being very lazy - push a 1 at start, then don't need to check for
 #      an empty @conditions [assume nesting in descrip.mms is correct] 
 #  2.1  26-Feb-1995  Charles Bailey  bailey@newman.upenn.edu
 #    - handle MMS macros generated by MakeMaker
@@ -38,8 +38,8 @@ $macros{"DECC"} = 1 if $macros{"__AXP__"};
 # [lazy - saves having to check for empty array - just test [0]==1]
 @conditions = (1);
 
-open(INFIL,$infile) || die "Can't open $infile: $!\n"; 
-open(OUTFIL,">$outfile") || die "Can't open $outfile: $!\n"; 
+open(INFIL,'<',$infile) || die "Can't open $infile: $!\n"; 
+open(OUTFIL,'>',$outfile) || die "Can't open $outfile: $!\n"; 
 
 print OUTFIL "#> This file produced from $infile by $0\n";
 print OUTFIL "#> Lines beginning with \"#>\" were commented out during the\n";