diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index ba8a3450d8f..c55d56a4eef 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1,6 +1,6 @@ # $Id$ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. -# Copyright 2007-2012 Norbert Preining, Reinhard Kotucha +# Copyright 2007-2013 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -2480,13 +2480,14 @@ sub download_file { $url = "$TeXLiveURL/$relpath"; } if (defined($::tldownload_server) && $::tldownload_server->enabled) { - debug("persistent connection set up, trying to get file.\n"); - if (($ret = $::tldownload_server->get_file($url, $dest))) { - debug("downloading file via permanent connection succeeded\n"); + 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"); return $ret; } else { - tlwarn("permanent server connection set up, but downloading did not succeed!"); - tlwarn("Retrying with wget.\n"); + tlwarn("tlmgr: persistent connection ok, but download failed: $url\n"); + tlwarn("tlmgr: retrying with wget.\n"); } } else { if (!defined($::tldownload_server)) { |