summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-11-12 18:22:18 +0000
committerNorbert Preining <preining@logic.at>2008-11-12 18:22:18 +0000
commit6cdd918923b439df13125b2e6d350833e97f17f9 (patch)
tree6743521799f5d868c7cc7b231ac4db6049dce1e7 /Master
parent23e9dce80571144ff416d0af618a44ae1a861389 (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')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm19
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