From 77f416af6e821b40649c971ded43089e0450791a Mon Sep 17 00:00:00 2001 From: Peter Eisentraut Date: Fri, 20 Dec 2019 12:26:01 +0100 Subject: [PATCH] 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. --- src/tools/msvc/build.pl | 4 ++-- src/tools/msvc/mkvcbuild.pl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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'); -- 2.39.5