Commit 80fc96ec authored by Peter Eisentraut's avatar Peter Eisentraut

Standardize order of use strict and use warnings in Perl code

The standard order in PostgreSQL and other code is use strict first,
but some code was uselessly inconsistent about this.
parent c47a240f
...@@ -3,8 +3,8 @@ ...@@ -3,8 +3,8 @@
# Generate the errcodes-table.sgml file from errcodes.txt # Generate the errcodes-table.sgml file from errcodes.txt
# Copyright (c) 2000-2020, PostgreSQL Global Development Group # Copyright (c) 2000-2020, PostgreSQL Global Development Group
use warnings;
use strict; use strict;
use warnings;
print print
"<!-- autogenerated from src/backend/utils/errcodes.txt, do not edit -->\n"; "<!-- autogenerated from src/backend/utils/errcodes.txt, do not edit -->\n";
......
...@@ -6,8 +6,8 @@ ...@@ -6,8 +6,8 @@
# src/backend/parser/check_keywords.pl # src/backend/parser/check_keywords.pl
# Copyright (c) 2009-2020, PostgreSQL Global Development Group # Copyright (c) 2009-2020, PostgreSQL Global Development Group
use warnings;
use strict; use strict;
use warnings;
my $gram_filename = $ARGV[0]; my $gram_filename = $ARGV[0];
my $kwlist_filename = $ARGV[1]; my $kwlist_filename = $ARGV[1];
......
...@@ -3,8 +3,8 @@ ...@@ -3,8 +3,8 @@
# Generate lwlocknames.h and lwlocknames.c from lwlocknames.txt # Generate lwlocknames.h and lwlocknames.c from lwlocknames.txt
# Copyright (c) 2000-2020, PostgreSQL Global Development Group # Copyright (c) 2000-2020, PostgreSQL Global Development Group
use warnings;
use strict; use strict;
use warnings;
my $lastlockidx = -1; my $lastlockidx = -1;
my $continue = "\n"; my $continue = "\n";
......
...@@ -3,8 +3,8 @@ ...@@ -3,8 +3,8 @@
# Generate the errcodes.h header from errcodes.txt # Generate the errcodes.h header from errcodes.txt
# Copyright (c) 2000-2020, PostgreSQL Global Development Group # Copyright (c) 2000-2020, PostgreSQL Global Development Group
use warnings;
use strict; use strict;
use warnings;
print print
"/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n"; "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n";
......
...@@ -3,8 +3,8 @@ ...@@ -3,8 +3,8 @@
# Generate the plerrcodes.h header from errcodes.txt # Generate the plerrcodes.h header from errcodes.txt
# Copyright (c) 2000-2020, PostgreSQL Global Development Group # Copyright (c) 2000-2020, PostgreSQL Global Development Group
use warnings;
use strict; use strict;
use warnings;
print print
"/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n"; "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n";
......
...@@ -3,8 +3,8 @@ ...@@ -3,8 +3,8 @@
# Generate the spiexceptions.h header from errcodes.txt # Generate the spiexceptions.h header from errcodes.txt
# Copyright (c) 2000-2020, PostgreSQL Global Development Group # Copyright (c) 2000-2020, PostgreSQL Global Development Group
use warnings;
use strict; use strict;
use warnings;
print print
"/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n"; "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n";
......
...@@ -3,8 +3,8 @@ ...@@ -3,8 +3,8 @@
# Generate the pltclerrcodes.h header from errcodes.txt # Generate the pltclerrcodes.h header from errcodes.txt
# Copyright (c) 2000-2020, PostgreSQL Global Development Group # Copyright (c) 2000-2020, PostgreSQL Global Development Group
use warnings;
use strict; use strict;
use warnings;
print print
"/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n"; "/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment