database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-09 18:21:05 +03:00
Code

Fix perl searchpath for modern perl for MSVC tools

Browse Source 
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 5953c99697
commit 1df92eeafe
3 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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

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

@ -11,6 +11,8 @@ 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 Install qw(Install);