From 1ae6ead94905dfee43773cf3b18949c91b33f9d1 Mon Sep 17 00:00:00 2001
From: John Lightsey <lightsey@debian.org>
Date: Fri, 23 Dec 2016 12:35:45 -0500
Subject: 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
---
 h2pl/mksizes | 2 +-
 h2pl/mkvars  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'h2pl')

diff --git a/h2pl/mksizes b/h2pl/mksizes
index cb4b8ab86e..f28ba9e243 100644
--- a/h2pl/mksizes
+++ b/h2pl/mksizes
@@ -2,7 +2,7 @@
 
 ($iam = $0) =~ s%.*/%%;
 $tmp = "$iam.$$";
-open (CODE,">$tmp.c") || die "$iam: cannot create $tmp.c: $!\n";
+open (CODE, '>', "$tmp.c") || die "$iam: cannot create $tmp.c: $!\n";
 
 $mask = q/printf ("$sizeof{'%s'} = %d;\n"/; 
 
diff --git a/h2pl/mkvars b/h2pl/mkvars
index ffb0f0b0b9..219c00537e 100644
--- a/h2pl/mkvars
+++ b/h2pl/mkvars
@@ -8,7 +8,7 @@ foreach $include (@ARGV) {
     printf STDERR "including %s\n", $include;
     do $include;
     warn "sourcing $include: $@\n" if ($@);
-    if (!open (INCLUDE,"$LIB/$include")) {
+    if (!open (INCLUDE,'<',"$LIB/$include")) {
 	warn "can't open $LIB/$include: $!\n"; 
 	next; 
     } 
-- 
cgit v1.2.1