From 0a4a7144b09dc0e72db4a987ff580b4b683fb7d2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 12 Mar 2001 22:19:56 +0000
Subject: (computeGroupSize): log what is found

---
 perl-install/pkgs.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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;
 }
 
-- 
cgit v1.2.1