diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 5b56d107b4a..61e922cc244 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2274,6 +2274,7 @@ 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"); return $ret; @@ -2281,6 +2282,13 @@ sub download_file { tlwarn("permanent server connection set up, but downloading did not succeed!"); tlwarn("Retrying with wget.\n"); } + } else { + if (!defined($::tldownload_server)) { + debug("::tldownload_server not defined\n"); + } else { + debug("::tldownload_server->enabled is not set\n"); + } + debug("persistent connection not set up, using wget\n"); } my $ret = _download_file($url, $dest, $wget); return($ret); @@ -3132,7 +3140,14 @@ Set up to use persistent connections using LWP/TLDownload. sub setup_persistent_downloads { if ($TeXLive::TLDownload::net_lib_avail) { - return ($::tldownload_server = TeXLive::TLDownload->new); + debug("setting up persistent downloads succeeded!\n"); + $::tldownload_server = TeXLive::TLDownload->new; + if (!defined($::tldownload_server)) { + debug("TLUtils:setup_persistent_downloads: ::tldownload_server undefined\n"); + } else { + debug("TLUtils:setup_persistent_downloads: succeeded in getting ::tldownload_server\n"); + } + return ($::tldownload_server); } return 0; } |