summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-05-25 02:27:29 +0000
committerNorbert Preining <preining@logic.at>2018-05-25 02:27:29 +0000
commit21ab4373a09a55afdc03c23a1288bdaaeaa34824 (patch)
treef2644c5120c4fe9c31f6ea72a882329d53a904c6 /Master/tlpkg/TeXLive/TLPDB.pm
parent2147e286737ea681e54fa6352ea103e03d0c3c5d (diff)
allow for retrial with mutiple downloaders until succeed
git-svn-id: svn://tug.org/texlive/trunk@47833 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 7c19c9a805e..3c3f4a3dce3 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -306,8 +306,7 @@ sub from_file {
$self->{'media'} = $media;
#
# actually load the TLPDB
- # if ($path =~ m;^((https?|ftp)://|file:\/\/*);) {
- if ($media eq 'NET' || $path =~ m;^file:\/\/*;) {
+ if ($path =~ m;^((https?|ftp)://|file:\/\/*); || $path =~ m;$TeXLive::TLUtils::SshURIRegex;) {
debug("TLPDB.pm: trying to initialize from $path\n");
# now $xzfh filehandle is open, the file created
# TLUtils::download_file will just overwrite what is there