From 39a0cee90a81b676f789f5599ec8a4fb5e5bbd52 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 22 Apr 2021 03:01:24 +0000 Subject: CTAN sync 202104220301 --- systems/texlive/tlnet/install-tl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'systems/texlive/tlnet/install-tl') diff --git a/systems/texlive/tlnet/install-tl b/systems/texlive/tlnet/install-tl index c31dac0f41..5d0a7667d0 100755 --- a/systems/texlive/tlnet/install-tl +++ b/systems/texlive/tlnet/install-tl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $Id: install-tl 58931 2021-04-20 22:20:56Z karl $ +# $Id: install-tl 58938 2021-04-21 21:26:24Z karl $ # Copyright 2007-2021 # Reinhard Kotucha, Norbert Preining, Karl Berry, Siep Kroonenberg. # This file is licensed under the GNU General Public License version 2 @@ -8,7 +8,7 @@ # Be careful when changing wording: *every* normal informational message # output here must be recognized by the long grep in tl-update-tlnet. -my $svnrev = '$Revision: 58931 $'; +my $svnrev = '$Revision: 58938 $'; $svnrev =~ m/: ([0-9]+) /; $::installerrevision = ($1 ? $1 : 'unknown'); @@ -746,9 +746,9 @@ sub only_load_remote { $location =~ s,/(tlpkg(/texlive\.tlpdb)?|archive)?/*$,,; if ($location =~ m/^ctan$/i) { $location = TeXLive::TLUtils::give_ctan_mirror(); - } elsif ($location =~ m/^$TeXLiveServerURL/) { + } elsif ($location =~ m/^$TeXLiveServerURLRegexp/) { my $mirrorbase = TeXLive::TLUtils::give_ctan_mirror_base(); - $location =~ s,^($TeXLiveServerURL|ctan$),$mirrorbase,; + $location =~ s,^($TeXLiveServerURLRegexp|ctan$),$mirrorbase,; } $TeXLiveURL = $location; $media = 'NET'; @@ -3116,7 +3116,7 @@ This script and its documentation were written for the TeX Live distribution (L) and both are licensed under the GNU General Public License Version 2 or later. -$Id: install-tl 58931 2021-04-20 22:20:56Z karl $ +$Id: install-tl 58938 2021-04-21 21:26:24Z karl $ =cut # to remake HTML version: pod2html --cachedir=/tmp install-tl >/tmp/itl.html -- cgit v1.2.3