diff options
author | Norbert Preining <norbert@preining.info> | 2022-02-22 03:00:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-02-22 03:00:54 +0000 |
commit | fb013a78d9e3aef2ecf58702d4adcec8d9ab6b28 (patch) | |
tree | d4402a058adb8131b94ec026d7be01cca51d8862 /systems/texlive/tlnet/install-tl | |
parent | a9409c96664c73e4fd0586f358845df19b1afd62 (diff) |
CTAN sync 202202220300
Diffstat (limited to 'systems/texlive/tlnet/install-tl')
-rwxr-xr-x | systems/texlive/tlnet/install-tl | 17 |
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 |