diff options
| author | Norbert Preining <preining@logic.at> | 2016-10-11 01:22:02 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2016-10-11 01:22:02 +0000 |
| commit | 50e9cd3e7d01368945ec66d779146b807db49360 (patch) | |
| tree | 814a921a3204e8ed59b72c700090694247430315 | |
| parent | 1466ce40e1ad37cc2e0fc83678c51271805072a5 (diff) | |
convert some warnings to debugs in support functions
git-svn-id: svn://tug.org/texlive/trunk@42254 c570f23f-e606-0410-a88d-b1316a301751
| -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"); } |