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 /djgpp | |
| 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 'djgpp')
| -rw-r--r-- | djgpp/fixpmain | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/djgpp/fixpmain b/djgpp/fixpmain index 8ebbf78623..9ff2ad620c 100644 --- a/djgpp/fixpmain +++ b/djgpp/fixpmain @@ -5,8 +5,8 @@ use Config; -open (PERLM,"<perlmain.c") or die "Can't load perlmain.c: $!"; -open (MAKEFILE,"<makefile.pl") or die "Can't load makefile.pl: $!"; +open (PERLM, '<', 'perlmain.c') or die "Can't load perlmain.c: $!"; +open (MAKEFILE, '<', 'makefile.pl') or die "Can't load makefile.pl: $!"; undef $/; $perlmain=<PERLM>; $makefile=<MAKEFILE>; @@ -29,5 +29,5 @@ for $realname (@exts) #DynaLoader is special $perlmain =~ s/(DynaLoader:\:boot)strap/$1_DynaLoader/gm; -open (PERLM,">perlmain.c") or die "Can't write perlmain.c: $!"; +open (PERLM, '>', 'perlmain.c') or die "Can't write perlmain.c: $!"; print PERLM $perlmain; |