diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 5 |
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 |