texlive[42254] Master/tlpkg/TeXLive: convert some warnings to debugs

[commits+preining at tug.org]

Revision: 42254
          http://tug.org/svn/texlive?view=revision&revision=42254
Author:   preining
Date:     2016-10-11 03:22:02 +0200 (Tue, 11 Oct 2016)
Log Message:
-----------
convert some warnings to debugs in support functions

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

Modified: trunk/Master/tlpkg/TeXLive/TLDownload.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLDownload.pm	2016-10-11 01:16:56 UTC (rev 42253)
+++ trunk/Master/tlpkg/TeXLive/TLDownload.pm	2016-10-11 01:22:02 UTC (rev 42254)
@@ -133,7 +133,7 @@
       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;

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2016-10-11 01:16:56 UTC (rev 42253)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2016-10-11 01:22:02 UTC (rev 42254)
@@ -2423,12 +2423,12 @@
     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 @@
   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");
   }