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 /utils/c2ph.PL | |
| 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 'utils/c2ph.PL')
| -rw-r--r-- | utils/c2ph.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/c2ph.PL b/utils/c2ph.PL index c5b5a3f95b..7adc819931 100644 --- a/utils/c2ph.PL +++ b/utils/c2ph.PL @@ -40,7 +40,7 @@ chdir dirname($0); $file = basename($0, '.PL'); $file .= '.com' if $^O eq 'VMS'; -open OUT,">$file" or die "Can't create $file: $!"; +open OUT, '>', $file or die "Can't create $file: $!"; print "Extracting $file (with variable substitutions)\n"; @@ -1285,7 +1285,7 @@ sub fetch_template { sub compute_intrinsics { &safedir; local($TMP) = "$SAFEDIR/c2ph-i.$$.c"; - open (TMP, ">$TMP") || die "can't open $TMP: $!"; + open (TMP, ">", $TMP) || die "can't open $TMP: $!"; select(TMP); print STDERR "computing intrinsic sizes: " if $trace; |