From e70353cf130db5d3acbb84450587a226607be78b Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 9 May 2021 21:09:44 +0000 Subject: TLUtils::query_ctan_mirror_curl: fix for Windows quoting git-svn-id: svn://tug.org/texlive/trunk@59149 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLUtils.pm') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 128902db921..350caa303b8 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3938,13 +3938,14 @@ sub query_ctan_mirror { # sub query_ctan_mirror_curl { my $max_trial = 3; + my $warg = (win32() ? "-w %{url_effective} " : "-w '%{url_effective}' "); for (my $i = 1; $i <= $max_trial; $i++) { # -L -> follow redirects # -s -> silent # -w -> what to output after completion my $cmd = "$::progs{'curl'} -Ls " . "-o " . nulldev() . " " - . "-w '%{url_effective}' " + . $warg . "--connect-timeout $NetworkTimeout " . "--max-time $NetworkTimeout " . $TeXLiveServerURL; -- cgit v1.2.3