diff options
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; |