sharpetronics/PostgreSQL
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-18 00:02:37 -04:00
Code Issues Projects Releases Wiki Activity

Set Perl search path more idiomatically

Browse Source 
Back in commits 1df92eeafe, f884a96819, and 592123efbb I used some
hackish code to set the script search path, unaware despite decades of
perl that there was a completely standard way to do this. This patch
changes those cases to use the standard perl FindBin package.
This commit is contained in:
Andrew Dunstan 2020-04-14 16:47:07 -04:00
parent 149f2ae88a
commit e60c6f6ea1
5 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/backend/catalog/genbki.pl
View File

@ -17,9 +17,8 @@ use strict;
use warnings;
use Getopt::Long;
use File::Basename;
use File::Spec;
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
use FindBin;
use lib $FindBin::RealBin;
use Catalog;

5
src/tools/msvc/build.pl
View File

@ -5,9 +5,8 @@
use strict;
use warnings;
use File::Basename;
use File::Spec;
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
use FindBin;
use lib $FindBin::RealBin;
use Cwd;

5
src/tools/msvc/install.pl
View File

@ -6,9 +6,8 @@
use strict;
use warnings;
use File::Basename;
use File::Spec;
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
use FindBin;
use lib $FindBin::RealBin;
use Install qw(Install);

5
src/tools/msvc/mkvcbuild.pl
View File

@ -7,9 +7,8 @@
use strict;
use warnings;
use File::Basename;
use File::Spec;
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
use FindBin;
use lib $FindBin::RealBin;
use Mkvcbuild;

5
src/tools/msvc/vcregress.pl
View File

@ -12,8 +12,9 @@ use File::Basename;
use File::Copy;
use File::Find ();
use File::Path qw(rmtree);
use File::Spec;
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
use FindBin;
use lib $FindBin::RealBin;
use Install qw(Install);