summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2022-02-20 22:57:45 +0000
committerNorbert Preining <preining@logic.at>2022-02-20 22:57:45 +0000
commite874b7454a07abdce47e0bbbf753f477536960c4 (patch)
tree8365bbd8b64ac4d8f6be2a567b75b3f50f396e7c /Master/install-tl
parenta26cc705681ec09b66fa35efdfeba52332d82fcb (diff)
install-tl: add --debug-fakenet
git-svn-id: svn://tug.org/texlive/trunk@62112 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl9
1 files changed, 7 insertions, 2 deletions
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");