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;
 }