From 6bc34e3caa78b47d130cff0dba6ea700d802aac8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 16 Sep 2005 15:10:20 +0000
Subject: URPM/Resolve.pm diff 1.109: "Remove the return value of
 compute_installed_flags"... but alas install still use it, so doing here what
 was done in compute_installed_flags

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 4af37f4d1..f24984471 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -929,7 +929,15 @@ sub selectPackagesAlreadyInstalled {
     my ($packages) = @_;
 
     log::l("computing installed flags and size of installed packages");
-    $packages->{sizes} = $packages->compute_installed_flags($packages->{rpmdb});
+
+    $packages->compute_installed_flags($packages->{rpmdb});
+
+    my %sizes;
+    $packages->{rpmdb}->traverse(sub {
+	my ($p) = @_;      
+	$sizes{$p->name} += $p->size;
+    });
+    $packages->{sizes} = \%sizes;
 }
 
 sub selectPackagesToUpgrade {
-- 
cgit v1.2.1