Switch most open() calls to three-argument form.

Switch from two-argument form.  Filehandle cloning is still done with the two
argument form for backward compatibility.

Committer:  Get all porting tests to pass.  Increment some $VERSIONs.
Run: ./perl -Ilib regen/mk_invlists.pl; ./perl -Ilib regen/regcharclass.pl

For: RT #130122

2 files changed, 4 insertions, 4 deletions

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index 570a946d40..6ed7eca9d9 100644
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@ -38,7 +38,7 @@ my $debug = $ENV{'GEN_SHRFLS_DEBUG'};
 print "gen_shrfls.pl Rev. 8-Jul-2011\n" if $debug;
 
 if ($ARGV[0] eq '-f') {
-  open(INP,$ARGV[1]) or die "Can't read input file $ARGV[1]: $!\n";
+  open(INP,'<',$ARGV[1]) or die "Can't read input file $ARGV[1]: $!\n";
   print "Input taken from file $ARGV[1]\n" if $debug;
   @ARGV = ();
   while (<INP>) {
@@ -205,7 +205,7 @@ elsif (@symfiles) { $incstr .= ',' . join(',',@symfiles); }
 # Linker wants /Include and /Library on different lines
 print OPTBLD "$libperl/Include=($incstr)\n";
 print OPTBLD "$libperl/Library\n";
-open(RTLOPT,$rtlopt) or die "$0: Can't read options file $rtlopt: $!\n";
+open(RTLOPT,'<',$rtlopt) or die "$0: Can't read options file $rtlopt: $!\n";
 while (<RTLOPT>) { print OPTBLD; }
 close RTLOPT;
 close OPTBLD;
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";