database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-28 23:42:10 +03:00
Code Activity

Clean up Perl code according to perlcritic

Browse Source 
Fix all perlcritic warnings of severity level 5, except in
src/backend/utils/Gen_dummy_probes.pl, which is automatically generated.

Reviewed-by: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Reviewed-by: Daniel Gustafsson <daniel@yesql.se>
This commit is contained in:
Peter Eisentraut
2017-03-26 22:24:13 -04:00
parent de4da168d5
commit facde2a98f
41 changed files with 360 additions and 358 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
doc/src/sgml/generate-errcodes-table.pl
View File

@ -9,7 +9,7 @@ use strict;
print
"<!-- autogenerated from src/backend/utils/errcodes.txt, do not edit -->\n";
open my $errcodes, $ARGV[0] or die;
open my $errcodes, '<', $ARGV[0] or die;
while (<$errcodes>)
{

12
doc/src/sgml/mk_feature_tables.pl
View File

@ -6,11 +6,11 @@ use strict;
my $yesno = $ARGV[0];
open PACK, $ARGV[1] or die;
open my $pack, '<', $ARGV[1] or die;
my %feature_packages;
while (<PACK>)
while (<$pack>)
{
chomp;
my ($fid, $pname) = split /\t/;
@ -24,13 +24,13 @@ while (<PACK>)
}
}
close PACK;
close $pack;
open FEAT, $ARGV[2] or die;
open my $feat, '<', $ARGV[2] or die;
print "<tbody>\n";
while (<FEAT>)
while (<$feat>)
{
chomp;
my ($feature_id, $feature_name, $subfeature_id,
@ -69,4 +69,4 @@ while (<FEAT>)
print "</tbody>\n";
close FEAT;
close $feat;