From e016ffde13260cb8ac2b75bca1f3d3bb7e2250f9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 20 Apr 2017 14:47:49 +0000 Subject: try to support https, too git-svn-id: svn://tug.org/texlive/trunk@43940 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPDB.pm') 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 -- cgit v1.2.3