diff options
| author | John Lightsey <lightsey@debian.org> | 2016-12-23 12:35:45 -0500 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2016-12-23 13:52:28 -0500 |
| commit | 1ae6ead94905dfee43773cf3b18949c91b33f9d1 (patch) | |
| tree | 6a54545d46d1ae3f61696e23111a21c736b3b2b5 /h2pl | |
| parent | 7527883f8c7b71d808abdbd3cff07f61280a42b5 (diff) | |
| download | perl-1ae6ead94905dfee43773cf3b18949c91b33f9d1.tar.gz | |
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
Diffstat (limited to 'h2pl')
| -rw-r--r-- | h2pl/mksizes | 2 | ||||
| -rw-r--r-- | h2pl/mkvars | 2 |
2 files changed, 2 insertions, 2 deletions
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; } |