From 9bb4f595f540e891a2901c309bdf9f621c099348 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 14 Mar 2001 13:45:24 +0000
Subject: (computeGroupSize): fix logging

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index f245a98d5..141c7c774 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -782,7 +782,7 @@ sub computeGroupSize {
 	push @{$pkgs{$v}}, $k;
 	$sizes{$v} += packageSize($packages->{names}{$k});
     }
-    log::l(sprintf "%s %sMB %s", $_, $sizes{$_} / sqr(1024), join(',', @{$pkgs{$_}})) foreach keys %sizes;
+    log::l(sprintf "%s %dMB %s", $_, $sizes{$_} / sqr(1024), join(',', @{$pkgs{$_}})) foreach keys %sizes;
     \%sizes;
 }
 
-- 
cgit v1.2.1