From c0c56fc7056452f6dded55b05c7425f3e3475a28 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 16 Apr 2016 12:21:02 +0000 Subject: try to support spaces in path on Windows git-svn-id: svn://tug.org/texlive/trunk@40551 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index bf4a819cccc..bd9f50108b5 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3649,7 +3649,13 @@ sub test_one_gpg { my $cmdline; debug("Testing for gpg in $prg\n"); if ($^O =~ /^MSWin(32|64)$/i) { - $prg = conv_to_w32_path($prg) if ($^O =~ /^MSWin(32|64)$/i); + # Perl on Windows somehow does not allow calling a program + # without a full path - at least a call to "gpg" tells me + # that "c:/Users/norbert/gpg" is not recognized ... + # consequence - use which! + $prg = which($prg); + return "" if (!$prg); + $prg = conv_to_w32_path($prg); $cmdline = "$prg --version >nul 2>&1"; } else { $cmdline = "$prg --version >/dev/null 2>&1"; -- cgit v1.2.3