Fix included file path for modern perl

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.

diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm
index 7494bfa00475120c0dc6da6b53a02558f7f52926..e0c2cd16be402aa164ad5033cae97ce64222c50d 100644 (file)
--- a/src/tools/msvc/Install.pm
+++ b/src/tools/msvc/Install.pm
@@ -59,8 +59,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");

diff --git a/src/tools/msvc/build.pl b/src/tools/msvc/build.pl
index 35649fe5a24721ca396fdd22a71154679280f0f9..1720bc873ab417d1b16187f2090157ece4215c20 100644 (file)
--- a/src/tools/msvc/build.pl
+++ b/src/tools/msvc/build.pl
@@ -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);
 

diff --git a/src/tools/msvc/install.pl b/src/tools/msvc/install.pl
index 90425ca8fc68ebe70cfe41031f8c846d421ae67f..47cdba35361e6d0d464c5c86df2c430178881171 100755 (executable)
--- a/src/tools/msvc/install.pl
+++ b/src/tools/msvc/install.pl
@@ -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")
 {

diff --git a/src/tools/msvc/mkvcbuild.pl b/src/tools/msvc/mkvcbuild.pl
index 34e861375c00652c272e035806627bd922603a31..f5505b98c26841a7613bec42e86554468099136f 100644 (file)
--- a/src/tools/msvc/mkvcbuild.pl
+++ b/src/tools/msvc/mkvcbuild.pl
@@ -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);

diff --git a/src/tools/msvc/pgbison.pl b/src/tools/msvc/pgbison.pl
index e799d900fe0c54ee1da4e09904645305454b31c7..895e398c08cad584cf3efd4a1020fbe1f9d750bf 100644 (file)
--- a/src/tools/msvc/pgbison.pl
+++ b/src/tools/msvc/pgbison.pl
@@ -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

diff --git a/src/tools/msvc/pgflex.pl b/src/tools/msvc/pgflex.pl
index eba06f2824ac446d65562d62f13aedf7443bfa15..aceed5ffd6c52efc437b4f5204f167fda15af1ef 100644 (file)
--- a/src/tools/msvc/pgflex.pl
+++ b/src/tools/msvc/pgflex.pl
@@ -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];

diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl
index 4018313bf2851389d8fb1ea943884ac3945c32c6..d0e8c6849b5bd7796775e0ff08eac6a8216aaede 100644 (file)
--- a/src/tools/msvc/vcregress.pl
+++ b/src/tools/msvc/vcregress.pl
@@ -23,8 +23,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:
@@ -32,7 +32,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 || "";