summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 1c99fe3f1..ac0e312ae 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -800,10 +800,12 @@ sub computeGroupSize {
$group{$_} = $m =~ /SYSTEM/ ? 'SYSTEM' : ($memo{$m} ||= or_clean(@flags, split("\t", $s)));
}
}
- my (%sizes);
+ my (%sizes, %pkgs);
while (my ($k, $v) = each %group) {
+ push @{$pkgs{$v}}, $k;
$sizes{$v} += packageSize($packages->{names}{$k});
}
+ log::l(sprintf "%s %sMB %s", $_, $sizes{$_} / sqr(1024), join(',', @{$pkgs{$_}})) foreach keys %sizes;
\%sizes;
}