diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLDownload.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLDownload.pm b/Master/tlpkg/TeXLive/TLDownload.pm index 61ea332bc92..1633add6413 100644 --- a/Master/tlpkg/TeXLive/TLDownload.pm +++ b/Master/tlpkg/TeXLive/TLDownload.pm @@ -133,7 +133,7 @@ sub get_file { return $outfh; } } else { - tlwarn("TLDownload::get_file: response error: " + debug("TLDownload::get_file: response error: " . $response->status_line . " (for $url)\n"); $self->incr_errorcount; return; diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 75027dfdd23..a5b58a4791d 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2423,12 +2423,12 @@ sub download_file { debug("persistent connection set up, trying to get $url (for $dest)\n"); $ret = $::tldownload_server->get_file($url, $dest); if ($ret) { - debug("downloading file via persistent connection succeeded\n"); + ddebug("downloading file via persistent connection succeeded\n"); return $ret; } else { - tlwarn("TLUtils::download_file: persistent connection ok," + debug("TLUtils::download_file: persistent connection ok," . " but download failed: $url\n"); - tlwarn("TLUtils::download_file: retrying with wget.\n"); + debug("TLUtils::download_file: retrying with wget.\n"); $wget_retry = 1; # just so we can give another msg. } } else { @@ -2444,7 +2444,7 @@ sub download_file { my $ret = _download_file($url, $dest, $wget); if ($wget_retry) { - tlwarn("TLUtils::download_file: retry with wget " + debug("TLUtils::download_file: retry with wget " . ($ret ? "succeeded" : "failed") . ": $url\n"); } |