From: Andrew Dunstan <andrew@dunslane.net>
Date: Tue, 5 Feb 2019 20:16:55 +0000 (-0500)
Subject: Keep perl style checker happy
X-Git-Url: http://git.postgresql.org/gitweb/?a=commitdiff_plain;h=4c1f42f588917225db16f3a6de62411a51bf3037;p=postgresql.git

Keep perl style checker happy

It doesn't like code before "use strict;".

(cherry picked from commit ed2c2d063bd110f299211611b72a5dbe07a4d7be)
---

diff --git a/src/backend/catalog/genbki.pl b/src/backend/catalog/genbki.pl
index 2d96fbe5ef8..943f7e467f8 100644
--- a/src/backend/catalog/genbki.pl
+++ b/src/backend/catalog/genbki.pl
@@ -14,15 +14,15 @@
 #
 #----------------------------------------------------------------------
 
+use strict;
+use warnings;
+
 use File::Basename;
 use File::Spec;
 BEGIN  { use lib File::Spec->rel2abs(dirname(__FILE__)); }
 
 use Catalog;
 
-use strict;
-use warnings;
-
 my @input_files;
 our @include_path;
 my $output_path = '';