From b9dcc4923116100300b073399a050683303a1610 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 21 Apr 2016 13:27:49 +0000 Subject: setup_gpg: fix double quotation on loosedows git-svn-id: svn://tug.org/texlive/trunk@40650 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLUtils.pm') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index d5955f1d069..2a6c4192395 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3706,13 +3706,19 @@ sub setup_gpg { ($^O =~ /^MSWin/i ? "exe" : platform()) ; debug("Testing for gpg in $p\n"); if (-r $p) { - $prg = $p; + if ($^O =~ /^MSWin/i) { + $prg = conv_to_w32_path($p); + } else { + $prg = "\"$p\""; + } $found = 1; } } } return 0 if (!$found); + # $prg is already properly quoted! + # ok, we found one # Set up the gpg invocation: my $gpghome = ($ENV{'TL_GNUPGHOME'} ? $ENV{'TL_GNUPGHOME'} : @@ -3720,7 +3726,7 @@ sub setup_gpg { $gpghome =~ s!/!\\!g if win32(); my $gpghome_quote = "\"$gpghome\""; # mind the final space for following args - $::gpg = "\"$prg\" --homedir $gpghome_quote "; + $::gpg = "$prg --homedir $gpghome_quote "; if ($ENV{'TL_GNUPGARGS'}) { $::gpg .= $ENV{'TL_GNUPGARGS'}; } else { -- cgit v1.2.3