summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2021-05-09 21:09:44 +0000
committerNorbert Preining <preining@logic.at>2021-05-09 21:09:44 +0000
commite70353cf130db5d3acbb84450587a226607be78b (patch)
treec1b8fa4144e71d8ec8756387b885fe5a1ebb13c6 /Master/tlpkg/TeXLive/TLUtils.pm
parent6a045c64c3f905e6bb325710626b1fb3b156c0c9 (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/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm3
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;