diff options
author | Norbert Preining <preining@logic.at> | 2009-12-10 05:17:53 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-12-10 05:17:53 +0000 |
commit | ab908ce0b6c463d1278d0936d2343d74293e4aa5 (patch) | |
tree | 2924594f4b62c6ba0fe7e073db1af3eb9483c5c7 | |
parent | f5059616ead85fc42ecaf002571d6554ae56cecf (diff) |
prepare for TLDownload usage, but not actually active ATM
git-svn-id: svn://tug.org/texlive/trunk@16341 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 1c1bfce9d30..0f8426820c8 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2226,6 +2226,15 @@ sub download_file { } else { $url = "$TeXLiveURL/$relpath"; } + if (defined($::current_server)) { + if ($::current_server->get_file($url, $dest)) { + debug("downloading file via permanent connection succeeded\n"); + return 1; + } else { + tlwarn("permanent server connection set up, but downloading did not succeed!"); + tlwarn("Retrying with wget.\n"); + } + } my $ret = _download_file($url, $dest, $wget); return($ret); } |