summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-10-11 01:22:02 +0000
committerNorbert Preining <preining@logic.at>2016-10-11 01:22:02 +0000
commit50e9cd3e7d01368945ec66d779146b807db49360 (patch)
tree814a921a3204e8ed59b72c700090694247430315
parent1466ce40e1ad37cc2e0fc83678c51271805072a5 (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.pm2
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm8
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");
}