[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 1706c51..7a83052 100644 (file)
--- a/vms/mms2make.pl
+++ b/vms/mms2make.pl
@@ -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";