summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-05-23 02:41:08 +0000
committerNorbert Preining <preining@logic.at>2018-05-23 02:41:08 +0000
commit49f362930a1775f1f824acb9598ccd94c924bb09 (patch)
tree56f63969b4cbf6dc1cc428dbaafacf7e13ba2349 /Master/tlpkg/TeXLive/TLPDB.pm
parentccc0b895a9b8b139cf5867d6f10e4e722580d5cd (diff)
trial on ssh support
git-svn-id: svn://tug.org/texlive/trunk@47812 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index ea153fcf484..f766f176d69 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -283,6 +283,8 @@ sub from_file {
my $rootpath = $self->root;
if ($rootpath =~ m,https?://|ftp://,) {
$media = 'NET';
+ } elsif ($rootpath =~ m,^[^@]*@[^:]*:,) {
+ $media = 'NET';
} else {
if ($rootpath =~ m,file://*(.*)$,) {
$rootpath = "/$1";
@@ -304,7 +306,8 @@ sub from_file {
$self->{'media'} = $media;
#
# actually load the TLPDB
- if ($path =~ m;^((https?|ftp)://|file:\/\/*);) {
+ # if ($path =~ m;^((https?|ftp)://|file:\/\/*);) {
+ if ($media eq 'NET' || $path =~ m;^file:\/\/*;) {
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