From 9a561fd55fd74ae5cd72a93599e4c72768d891cd Mon Sep 17 00:00:00 2001
From: Andrew Dunstan <andrew@dunslane.net>
Date: Tue, 5 Feb 2019 09:59:46 -0500
Subject: [PATCH] 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.

(cherry picked from commit 51884fa16a179852ec851172a72588d8e84ec05e)
---
 src/backend/catalog/genbki.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/backend/catalog/genbki.pl b/src/backend/catalog/genbki.pl
index 0bab9450da..2d96fbe5ef 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;