diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-12 22:19:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-12 22:19:56 +0000 |
| commit | 0a4a7144b09dc0e72db4a987ff580b4b683fb7d2 (patch) | |
| tree | f3459c8ae411b743b9ed3f0f7ebbac4f83424e67 | |
| parent | e1ae3c30935d77a0e27cc6441ebf7cf5c109721e (diff) | |
| download | drakx-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.tar drakx-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.tar.gz drakx-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.tar.bz2 drakx-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.tar.xz drakx-0a4a7144b09dc0e72db4a987ff580b4b683fb7d2.zip | |
(computeGroupSize): log what is found
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
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; } |