diff options
author | Karl Berry <karl@freefriends.org> | 2022-03-08 22:59:35 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-03-08 22:59:35 +0000 |
commit | 871e3a91b332158dcf4feff37ffb24393a675a6b (patch) | |
tree | 3abd537e579d731c9bcae657c403cbd54971a984 /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | 32701a4c86812d8b27828263ecc4b515fbf35a0d (diff) |
doc updates
git-svn-id: svn://tug.org/texlive/trunk@62529 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index f251ba66402..252f2295b08 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1645,27 +1645,29 @@ sub time_estimate { return($remtime, $tottime); } - + =item C<install_packages($from_tlpdb, $media, $to_tlpdb, $what, $opt_src, $opt_doc, $retry, $continue)> Installs the list of packages found in C<@$what> (a ref to a list) into the TLPDB given by C<$to_tlpdb>. Information on files are taken from the TLPDB C<$from_tlpdb>. -C<$opt_src> and C<$opt_doc> specify whether srcfiles and docfiles should be -installed (currently implemented only for installation from uncompressed media). +C<$opt_src> and C<$opt_doc> specify whether srcfiles and docfiles should +be installed (currently implemented only for installation from +uncompressed media). If C<$retry> is trueish, retry failed packages a second time. If C<$continue> is trueish, installation failure of non-critical packages -will be ignored. +will be ignored (success is returned). Returns 1 on success and 0 on error. =cut sub install_packages { - my ($fromtlpdb,$media,$totlpdb,$what,$opt_src,$opt_doc, $opt_retry, $opt_continue) = @_; + my ($fromtlpdb,$media,$totlpdb,$what, + $opt_src,$opt_doc,$opt_retry,$opt_continue) = @_; my $container_src_split = $fromtlpdb->config_src_container; my $container_doc_split = $fromtlpdb->config_doc_container; my $root = $fromtlpdb->root; @@ -1744,7 +1746,7 @@ sub install_packages { if (!$fromtlpdb->install_package($package, $totlpdb)) { if ($opt_continue) { push @::installation_failed_packages, $package; - tlwarn("Failed to install $package, but continue anyway!\n"); + tlwarn("Failed to install $package, but continuing anyway!\n"); } else { return 0; } |