Fix searchpath for modern Perl for genbki.pl

adunstan · adunstan · commit 9a561fd55fd7 · 2023-01-19T11:54:06.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. (cherry picked from commit 51884fa)
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;`