summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm13
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)) {