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 d06eae019ad91bc5218ec95b358312a748e3a928..b71437850134e6d0a2f1ad9e29613f5452ad5466 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;