diff options
author | Norbert Preining <preining@logic.at> | 2008-11-12 18:22:18 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-11-12 18:22:18 +0000 |
commit | 6cdd918923b439df13125b2e6d350833e97f17f9 (patch) | |
tree | 6743521799f5d868c7cc7b231ac4db6049dce1e7 /Master/tlpkg | |
parent | 23e9dce80571144ff416d0af618a44ae1a861389 (diff) |
do at least mention how many packages more we have to install in install-tl
git-svn-id: svn://tug.org/texlive/trunk@11269 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 34e01d5bb07..a7dee935047 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -790,15 +790,24 @@ sub install_packages { my $container_src_split = $fromtlpdb->config_src_container; my $container_doc_split = $fromtlpdb->config_doc_container; my $root = $fromtlpdb->root; - foreach my $package (@$what) { - info("Installing: $package\n"); - foreach my $h (@::install_packages_hook) { - &$h("Installing: $package"); - } + my @packs = @$what; + my $totalnr = $#packs + 1; + my $td = length("$totalnr"); + my $n = 0; + foreach my $package (@packs) { my $tlpobj=$fromtlpdb->get_package($package); if (!defined($tlpobj)) { die "STRANGE: $package not to be found in ", $fromtlpdb->root; } + $n++; + # here we could add more information, eg about timing and number + # of bytes etc etc. + # the size of the containers is present + my $infostr = sprintf("Installing [%0${td}d/$totalnr]: $package",$n); + info("$infostr\n"); + foreach my $h (@::install_packages_hook) { + &$h($infostr); + } my $real_opt_doc = $opt_doc; # if we install a package from the Documentation class we # reactivate the do_doc in any case. It should apply ONLY for fonts |