From: Peter Eisentraut <peter@eisentraut.org>
Date: Fri, 20 Dec 2019 11:26:01 +0000 (+0100)
Subject: Clean up inconsistent backslash use in paths
X-Git-Tag: REL_13_BETA1~985
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=77f416af6e821b40649c971ded43089e0450791a;p=thirdparty%2Fpostgresql.git

Clean up inconsistent backslash use in paths

Most of the MSVC Perl code uses forward slashes for file paths.  Make
the few places that use backslashes the same.  This also helps running
that code on non-Windows.
---

diff --git a/src/tools/msvc/build.pl b/src/tools/msvc/build.pl
index 52abdb17b9b..2e47f24783f 100644
--- a/src/tools/msvc/build.pl
+++ b/src/tools/msvc/build.pl
@@ -12,9 +12,9 @@ use Cwd;
 
 use Mkvcbuild;
 
-chdir('..\..\..') if (-d '..\msvc' && -d '..\..\..\src');
+chdir('../../..') if (-d '../msvc' && -d '../../../src');
 die 'Must run from root or msvc directory'
-  unless (-d 'src\tools\msvc' && -d 'src');
+  unless (-d 'src/tools/msvc' && -d 'src');
 
 # buildenv.pl is for specifying the build environment settings
 # it should contain lines like:
diff --git a/src/tools/msvc/mkvcbuild.pl b/src/tools/msvc/mkvcbuild.pl
index 48672439dcf..a5e99dd0dea 100644
--- a/src/tools/msvc/mkvcbuild.pl
+++ b/src/tools/msvc/mkvcbuild.pl
@@ -13,9 +13,9 @@ BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
 
 use Mkvcbuild;
 
-chdir('..\..\..') if (-d '..\msvc' && -d '..\..\..\src');
+chdir('../../..') if (-d '../msvc' && -d '../../../src');
 die 'Must run from root or msvc directory'
-  unless (-d 'src\tools\msvc' && -d 'src');
+  unless (-d 'src/tools/msvc' && -d 'src');
 
 die 'Could not find config_default.pl'
   unless (-f 'src/tools/msvc/config_default.pl');