texlive[59149] Master/tlpkg/TeXLive/TLUtils.pm:

[commits+preining at tug.org]

Revision: 59149
          http://tug.org/svn/texlive?view=revision&revision=59149
Author:   preining
Date:     2021-05-09 23:09:44 +0200 (Sun, 09 May 2021)
Log Message:
-----------
TLUtils::query_ctan_mirror_curl: fix for Windows quoting

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-05-09 20:50:32 UTC (rev 59148)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-05-09 21:09:44 UTC (rev 59149)
@@ -3938,6 +3938,7 @@
 # 
 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
@@ -3944,7 +3945,7 @@
     # -w -> what to output after completion
     my $cmd = "$::progs{'curl'} -Ls "
               . "-o " . nulldev() . " "
-              . "-w '%{url_effective}' "
+              . $warg
               . "--connect-timeout $NetworkTimeout "
               . "--max-time $NetworkTimeout "
               . $TeXLiveServerURL;