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 /Porting/add-package.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 'Porting/add-package.pl')
| -rwxr-xr-x | Porting/add-package.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Porting/add-package.pl b/Porting/add-package.pl index ee03c45b68..012aa77894 100755 --- a/Porting/add-package.pl +++ b/Porting/add-package.pl @@ -374,7 +374,7 @@ my @ChangedFiles; ### update the manifest { my $file = $Repo . '/MANIFEST'; my @manifest; - { open my $fh, "<$file" or die "Could not open $file: $!"; + { open my $fh, '<', $file or die "Could not open $file: $!"; @manifest = <$fh>; close $fh; } @@ -414,7 +414,7 @@ my @ChangedFiles; push @manifest, values %pkg_files; { chmod 0644, $file; - open my $fh, ">$file" or die "Could not open $file for writing: $!"; + open my $fh, '>', $file or die "Could not open $file for writing: $!"; #print $fh sort { lc $a cmp lc $b } @manifest; ### XXX stolen from pod/buildtoc:sub do_manifest print $fh |