Fix searchpath for modern Perl for genbki.pl

adunstan · adunstan · commit 4e7a5130271f · 2019-02-05T10:04:38.000-05:00
This was fixed for MSVC tools by commit 1df92ee, 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
@@ -14,6 +14,10 @@
 #
 #----------------------------------------------------------------------
 
+use File::Basename;
+use File::Spec;
+BEGIN  { use lib File::Spec->rel2abs(dirname(__FILE__)); }
+
 use Catalog;
 
 use strict;

Original file line number	Diff line number	Diff line change
`@@ -14,6 +14,10 @@`
`14`	`14`	`#`
`15`	`15`	`#----------------------------------------------------------------------`
`16`	`16`
	`17`	`+use File::Basename;`
	`18`	`+use File::Spec;`
	`19`	`+BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }`
	`20`	`+`
`17`	`21`	`use Catalog;`
`18`	`22`
`19`	`23`	`use strict;`