summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-12-10 05:17:53 +0000
committerNorbert Preining <preining@logic.at>2009-12-10 05:17:53 +0000
commitab908ce0b6c463d1278d0936d2343d74293e4aa5 (patch)
tree2924594f4b62c6ba0fe7e073db1af3eb9483c5c7 /Master
parentf5059616ead85fc42ecaf002571d6554ae56cecf (diff)
prepare for TLDownload usage, but not actually active ATM
git-svn-id: svn://tug.org/texlive/trunk@16341 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm9
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);
}