diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-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; } |