From e874b7454a07abdce47e0bbbf753f477536960c4 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 20 Feb 2022 22:57:45 +0000 Subject: install-tl: add --debug-fakenet git-svn-id: svn://tug.org/texlive/trunk@62112 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index 9206d8c06af..9ef35051bcb 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -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"); -- cgit v1.2.3