From 3e53d7343017c1fbe058fe4df9f9acfcbeb26359 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 21 Mar 2013 20:16:55 +0000 Subject: message wording git-svn-id: svn://tug.org/texlive/trunk@29459 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'Master') 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)) { -- cgit v1.2.3