1
0
mirror of https://github.com/postgres/postgres.git synced 2025-07-28 23:42:10 +03:00

Fix perl searchpath for modern perl for MSVC tools

Modern versions of perl no longer include the current directory in the
perl searchpath, as it's insecure. Instead of adding the current
directory, we get around the problem by adding the directory where the
script lives.

Problem noted by Victor Wagner.

Solution adapted from buildfarm client code.

Backpatch to all live versions.
This commit is contained in:
Andrew Dunstan
2018-10-28 12:22:32 -04:00
parent aa9642acb9
commit a71f556522
3 changed files with 10 additions and 0 deletions

View File

@ -6,6 +6,10 @@
use strict; use strict;
use warnings; use warnings;
use File::Basename;
use File::Spec;
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
use Install qw(Install); use Install qw(Install);
# buildenv.pl is for specifying the build environment settings # buildenv.pl is for specifying the build environment settings

View File

@ -7,6 +7,10 @@
use strict; use strict;
use warnings; use warnings;
use File::Basename;
use File::Spec;
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
use Mkvcbuild; use Mkvcbuild;
chdir('..\..\..') if (-d '..\msvc' && -d '..\..\..\src'); chdir('..\..\..') if (-d '..\msvc' && -d '..\..\..\src');

View File

@ -10,6 +10,8 @@ use Cwd;
use File::Basename; use File::Basename;
use File::Copy; use File::Copy;
use File::Find (); use File::Find ();
use File::Spec;
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
use Install qw(Install); use Install qw(Install);