Handle spaces for Python install location in MSVC scripts

Attempting to use an installation path of Python that includes spaces
caused the MSVC builds to fail.  This fixes the issue by using the same
quoting method as ad7595b for OpenSSL.

Author: Victor Wagner
Discussion: https://postgr.es/m/20200430150608.6dc6b8c4@antares.wagner.home
Backpatch-through: 9.5

diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm
index dc9b755d5951ab3063652c54640def62317c5ae9..0352c533df80f573cb90e862f25b4d3395b6ec48 100644 (file)
--- a/src/tools/msvc/Mkvcbuild.pm
+++ b/src/tools/msvc/Mkvcbuild.pm
@@ -475,7 +475,7 @@ sub mkvcbuild
        my $pythonprog = "import sys;print(sys.prefix);"
          . "print(str(sys.version_info[0])+str(sys.version_info[1]))";
        my $prefixcmd =
-         $solution->{options}->{python} . "\\python -c \"$pythonprog\"";
+         qq("$solution->{options}->{python}\\python" -c "$pythonprog");
        my $pyout = `$prefixcmd`;
        die "Could not query for python version!\n" if $?;
        my ($pyprefix, $pyver) = split(/\r?\n/, $pyout);