database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-04-25 21:42:33 +03:00
Code

Fix included file path for modern perl

Browse Source 
Contrary to the comment on 772d4b76, only paths starting with "./" or
"../" are considered relative to the current working directory by perl's
"do" function. So this patch converts all the relevant cases to use "./"
paths. This only affects MSVC.

Backpatch to all live branches.
This commit is contained in:
Andrew Dunstan 2019-02-05 18:57:12 -05:00
parent 171207100e
commit 1a6244216d
7 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/tools/msvc/Install.pm
View File

@ -58,8 +58,8 @@ sub Install
# suppress warning about harmless redeclaration of $config
no warnings 'misc';
do "config_default.pl";
do "config.pl" if (-f "config.pl");
do "./config_default.pl";
do "./config.pl" if (-f "config.pl");
}
chdir("../../..") if (-f "../../../configure");

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

@ -23,7 +23,7 @@ use Mkvcbuild;
if (-e "src/tools/msvc/buildenv.pl")
{
do "src/tools/msvc/buildenv.pl";
do "./src/tools/msvc/buildenv.pl";
}
elsif (-e "./buildenv.pl")
{
@ -32,8 +32,8 @@ elsif (-e "./buildenv.pl")
# set up the project
our $config;
do "config_default.pl";
do "config.pl" if (-f "src/tools/msvc/config.pl");
do "./config_default.pl";
do "./config.pl" if (-f "src/tools/msvc/config.pl");
my $vcver = Mkvcbuild::mkvcbuild($config);

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

@ -18,7 +18,7 @@ use Install qw(Install);
if (-e "src/tools/msvc/buildenv.pl")
{
do "src/tools/msvc/buildenv.pl";
do "./src/tools/msvc/buildenv.pl";
}
elsif (-e "./buildenv.pl")
{

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

@ -23,7 +23,7 @@ print "Warning: no config.pl found, using default.\n"
unless (-f 'src/tools/msvc/config.pl');
our $config;
do 'src/tools/msvc/config_default.pl';
do 'src/tools/msvc/config.pl' if (-f 'src/tools/msvc/config.pl');
do './src/tools/msvc/config_default.pl';
do './src/tools/msvc/config.pl' if (-f 'src/tools/msvc/config.pl');
Mkvcbuild::mkvcbuild($config);

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

@ -7,7 +7,7 @@ use File::Basename;
# assume we are in the postgres source root
do 'src/tools/msvc/buildenv.pl' if -e 'src/tools/msvc/buildenv.pl';
do './src/tools/msvc/buildenv.pl' if -e 'src/tools/msvc/buildenv.pl';
my ($bisonver) = `bison -V`; # grab first line
$bisonver = (split(/\s+/, $bisonver))[3]; # grab version number

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

@ -10,7 +10,7 @@ $ENV{CYGWIN} = 'nodosfilewarning';
# assume we are in the postgres source root
do 'src/tools/msvc/buildenv.pl' if -e 'src/tools/msvc/buildenv.pl';
do './src/tools/msvc/buildenv.pl' if -e 'src/tools/msvc/buildenv.pl';
my ($flexver) = `flex -V`; # grab first line
$flexver = (split(/\s+/, $flexver))[1];

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

@ -22,8 +22,8 @@ chdir "../../.." if (-d "../../../src/tools/msvc");
my $topdir = getcwd();
my $tmp_installdir = "$topdir/tmp_install";
do 'src/tools/msvc/config_default.pl';
do 'src/tools/msvc/config.pl' if (-f 'src/tools/msvc/config.pl');
do './src/tools/msvc/config_default.pl';
do './src/tools/msvc/config.pl' if (-f 'src/tools/msvc/config.pl');
# buildenv.pl is for specifying the build environment settings
# it should contain lines like:
@ -31,7 +31,7 @@ do 'src/tools/msvc/config.pl' if (-f 'src/tools/msvc/config.pl');
if (-e "src/tools/msvc/buildenv.pl")
{
do "src/tools/msvc/buildenv.pl";
do "./src/tools/msvc/buildenv.pl";
}
my $what = shift || "";