From: Andrew Dunstan <andrew@dunslane.net>
Date: Tue, 5 Feb 2019 14:59:46 +0000 (-0500)
Subject: Fix searchpath for modern Perl for genbki.pl
X-Git-Tag: REL_11_2~30
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=4e7a5130271fcc579f89d3f7ae6b69e73d37c32a;p=postgresql

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 9be51d28b0..2b4a1de0a9 100644
--- 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;