From 353e1207f87d868c93ee586a5e70a8a7097ed440 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 21 Apr 2021 21:26:24 +0000 Subject: support both http: and https://mirror.ctan.org git-svn-id: svn://tug.org/texlive/trunk@58938 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Master/texmf-dist/scripts/texlive') diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index b53ab27a929..78221b0616d 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -7007,9 +7007,9 @@ sub _init_tlmedia { # choose a mirror if we are asked. if ($location =~ m/^ctan$/i) { $location = give_ctan_mirror(); - } elsif ($location =~ m,^$TeXLiveServerURL,) { + } elsif ($location =~ m,^$TeXLiveServerURLRegexp,) { my $mirrorbase = TeXLive::TLUtils::give_ctan_mirror_base(); - $location =~ s,^$TeXLiveServerURL,$mirrorbase,; + $location =~ s,^$TeXLiveServerURLRegexp,$mirrorbase,; } my $errormsg; @@ -7049,9 +7049,9 @@ sub setup_one_remotetlpdb { # choose a mirror if we are asked. if ($location =~ m/^ctan$/i) { $location = give_ctan_mirror(); - } elsif ($location =~ m,^$TeXLiveServerURL,) { + } elsif ($location =~ m,^$TeXLiveServerURLRegexp,) { my $mirrorbase = TeXLive::TLUtils::give_ctan_mirror_base(); - $location =~ s,^$TeXLiveServerURL,$mirrorbase,; + $location =~ s,^$TeXLiveServerURLRegexp,$mirrorbase,; } # if we talk about a net location try to download the hash of the tlpdb -- cgit v1.2.3