diff options
author | Norbert Preining <preining@logic.at> | 2021-05-09 21:09:44 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2021-05-09 21:09:44 +0000 |
commit | e70353cf130db5d3acbb84450587a226607be78b (patch) | |
tree | c1b8fa4144e71d8ec8756387b885fe5a1ebb13c6 /Master/tlpkg/TeXLive | |
parent | 6a045c64c3f905e6bb325710626b1fb3b156c0c9 (diff) |
TLUtils::query_ctan_mirror_curl: fix for Windows quoting
git-svn-id: svn://tug.org/texlive/trunk@59149 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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; |