summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-12 22:19:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-12 22:19:56 +0000
commit0a4a7144b09dc0e72db4a987ff580b4b683fb7d2 (patch)
treef3459c8ae411b743b9ed3f0f7ebbac4f83424e67 /perl-install
parente1ae3c30935d77a0e27cc6441ebf7cf5c109721e (diff)
downloaddrakx-backup-do-not-use-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.tar
drakx-backup-do-not-use-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.tar.gz
drakx-backup-do-not-use-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.tar.bz2
drakx-backup-do-not-use-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.tar.xz
drakx-backup-do-not-use-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.zip
(computeGroupSize): log what is found
Diffstat (limited to 'perl-install')
-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;
}