Fix searchpath for modern Perl for genbki.pl

This was fixed for MSVC tools by commit 1df92eeafefac4, but per
buildfarm member bowerbird genbki.pl needs the same treatment.

Backpatch to all live branches.

diff --git a/src/backend/catalog/genbki.pl b/src/backend/catalog/genbki.pl
index ca8987907c6d4dc88e9a888ca08f59ff3bf3db48..b09f8b5e47cc61adbae8db9a502586e8123664e4 100644 (file)
--- a/src/backend/catalog/genbki.pl
+++ b/src/backend/catalog/genbki.pl
@@ -14,6 +14,10 @@
 #
 #----------------------------------------------------------------------
 
+use File::Basename;
+use File::Spec;
+BEGIN  { use lib File::Spec->rel2abs(dirname(__FILE__)); }
+
 use Catalog;
 
 use strict;