From 49f362930a1775f1f824acb9598ccd94c924bb09 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 23 May 2018 02:41:08 +0000 Subject: trial on ssh support git-svn-id: svn://tug.org/texlive/trunk@47812 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLPDB.pm') 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 -- cgit v1.2.3