diff options
author | Norbert Preining <preining@logic.at> | 2017-04-20 14:47:49 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2017-04-20 14:47:49 +0000 |
commit | e016ffde13260cb8ac2b75bca1f3d3bb7e2250f9 (patch) | |
tree | 5e57d6e46c7ab32d9dcecf89d538307b41f14f56 /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | 41ca4e53eb135aff20a0eba4cffdb2cfb65e10e5 (diff) |
try to support https, too
git-svn-id: svn://tug.org/texlive/trunk@43940 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index bc1adef0249..96012298ae4 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -276,7 +276,7 @@ sub from_file { my $is_verified = 0; # do media detection my $rootpath = $self->root; - if ($rootpath =~ m,http://|ftp://,) { + if ($rootpath =~ m,https?://|ftp://,) { $media = 'NET'; } else { if ($rootpath =~ m,file://*(.*)$,) { @@ -299,7 +299,7 @@ sub from_file { $self->{'media'} = $media; # # actually load the TLPDB - if ($path =~ m;^((http|ftp)://|file:\/\/*);) { + if ($path =~ m;^((https?|ftp)://|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 |