diff options
Diffstat (limited to 'vms/mms2make.pl')
| -rw-r--r-- | vms/mms2make.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/mms2make.pl b/vms/mms2make.pl index 1706c51283..7a83052acf 100644 --- 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"; |