summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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