summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-04-20 14:47:49 +0000
committerNorbert Preining <preining@logic.at>2017-04-20 14:47:49 +0000
commite016ffde13260cb8ac2b75bca1f3d3bb7e2250f9 (patch)
tree5e57d6e46c7ab32d9dcecf89d538307b41f14f56 /Master/tlpkg/TeXLive/TLPDB.pm
parent41ca4e53eb135aff20a0eba4cffdb2cfb65e10e5 (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.pm4
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