summaryrefslogtreecommitdiff
path: root/src/pl/tcl
diff options
context:
space:
mode:
authorPeter Eisentraut <peter@eisentraut.org>2020-09-21 15:22:41 +0200
committerPeter Eisentraut <peter@eisentraut.org>2020-09-21 17:04:36 +0200
commit80fc96eceb817d89cdd11c02c8ab913c8d060a3e (patch)
tree9f61b541f29f2f287728f91a3e45013d2086907e /src/pl/tcl
parentc47a240fe6db8293e2de1565233faee40afa64b6 (diff)
downloadpostgresql-80fc96eceb817d89cdd11c02c8ab913c8d060a3e.tar.gz
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.
Diffstat (limited to 'src/pl/tcl')
-rw-r--r--src/pl/tcl/generate-pltclerrcodes.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pl/tcl/generate-pltclerrcodes.pl b/src/pl/tcl/generate-pltclerrcodes.pl
index 59ea2baab7..43417a4bb4 100644
--- a/src/pl/tcl/generate-pltclerrcodes.pl
+++ b/src/pl/tcl/generate-pltclerrcodes.pl
@@ -3,8 +3,8 @@
# Generate the pltclerrcodes.h header from errcodes.txt
# Copyright (c) 2000-2020, PostgreSQL Global Development Group
-use warnings;
use strict;
+use warnings;
print
"/* autogenerated from src/backend/utils/errcodes.txt, do not edit */\n";