summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/install-tl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2022-02-22 03:00:54 +0000
committerNorbert Preining <norbert@preining.info>2022-02-22 03:00:54 +0000
commitfb013a78d9e3aef2ecf58702d4adcec8d9ab6b28 (patch)
treed4402a058adb8131b94ec026d7be01cca51d8862 /systems/texlive/tlnet/install-tl
parenta9409c96664c73e4fd0586f358845df19b1afd62 (diff)
CTAN sync 202202220300
Diffstat (limited to 'systems/texlive/tlnet/install-tl')
-rwxr-xr-xsystems/texlive/tlnet/install-tl17
1 files changed, 11 insertions, 6 deletions
diff --git a/systems/texlive/tlnet/install-tl b/systems/texlive/tlnet/install-tl
index 112813e04a..f65f018966 100755
--- a/systems/texlive/tlnet/install-tl
+++ b/systems/texlive/tlnet/install-tl
@@ -1,6 +1,6 @@
#!/usr/bin/env perl
-# $Id: install-tl 62052 2022-02-17 00:39:03Z preining $
-# Copyright 2007-2021
+# $Id: install-tl 62112 2022-02-20 22:57:45Z preining $
+# Copyright 2007-2022
# Reinhard Kotucha, Norbert Preining, Karl Berry, Siep Kroonenberg.
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -10,7 +10,7 @@
use strict; use warnings;
-my $svnrev = '$Revision: 62052 $';
+my $svnrev = '$Revision: 62112 $';
$svnrev =~ m/: ([0-9]+) /;
$::installerrevision = ($1 ? $1 : 'unknown');
@@ -305,6 +305,8 @@ $::opt_select_repository = 0;
our $opt_in_place = 0;
# don't set this to a value, see below
my $opt_verify_downloads;
+# debug options
+my $opt_debug_fakenet = 0;
# show all options even those not relevant for that arch
$::opt_all_options = 0;
@@ -369,6 +371,7 @@ GetOptions(
"continue" => \$opt_continue,
"custom-bin=s" => \$opt_custom_bin,
"debug-translation" => \$::debug_translation,
+ "debug-fakenet" => \$opt_debug_fakenet,
"fancyselector",
"force-platform|force-arch=s" => \$opt_force_arch,
"gui:s" => \$opt_gui,
@@ -2153,6 +2156,8 @@ sub do_install_packages {
}
@criticalwhat = sort @criticalwhat;
@what = sort @what;
+ # determine retrial behavior
+ my $retry = $opt_debug_fakenet || ($media eq "NET");
# temporary unset the localtlpdb options responsible for
# running all kind of postactions, since install_packages
# would call them without the PATH already set up
@@ -2163,12 +2168,12 @@ sub do_install_packages {
if (!install_packages($tlpdb,$media,$localtlpdb,\@criticalwhat,
$vars{'tlpdbopt_install_srcfiles'},
$vars{'tlpdbopt_install_docfiles'},
- 0)
+ $retry, 0)
||
!install_packages($tlpdb,$media,$localtlpdb,\@what,
$vars{'tlpdbopt_install_srcfiles'},
$vars{'tlpdbopt_install_docfiles'},
- $opt_continue)) {
+ $retry, $opt_continue)) {
my $profile_name = "installation.profile";
create_profile($profile_name);
tlwarn("Installation failed.\n");
@@ -3145,7 +3150,7 @@ This script and its documentation were written for the TeX Live
distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
-$Id: install-tl 62052 2022-02-17 00:39:03Z preining $
+$Id: install-tl 62112 2022-02-20 22:57:45Z preining $
=cut
# to remake HTML version: pod2html --cachedir=/tmp install-tl >/tmp/itl.html