diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2017-03-26 22:24:13 -0400 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2017-03-27 08:18:22 -0400 |
| commit | facde2a98f0b5f7689b4e30a9e7376e926e733b8 (patch) | |
| tree | ab8b2cc1b2bd47b7db5e2def26d8eca4ce6ca438 /doc/src | |
| parent | de4da168d57de812bb30d359394b7913635d21a9 (diff) | |
Clean up Perl code according to perlcritic
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>
Diffstat (limited to 'doc/src')
| -rw-r--r-- | doc/src/sgml/generate-errcodes-table.pl | 2 | ||||
| -rw-r--r-- | doc/src/sgml/mk_feature_tables.pl | 12 |
2 files changed, 7 insertions, 7 deletions
diff --git a/doc/src/sgml/generate-errcodes-table.pl b/doc/src/sgml/generate-errcodes-table.pl index 66be811adba..01fc6166bf4 100644 --- a/doc/src/sgml/generate-errcodes-table.pl +++ b/doc/src/sgml/generate-errcodes-table.pl @@ -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>) { diff --git a/doc/src/sgml/mk_feature_tables.pl b/doc/src/sgml/mk_feature_tables.pl index 93dab2132e1..9b111b8b409 100644 --- a/doc/src/sgml/mk_feature_tables.pl +++ b/doc/src/sgml/mk_feature_tables.pl @@ -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; |