diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-16 15:10:20 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-16 15:10:20 +0000 |
commit | 6bc34e3caa78b47d130cff0dba6ea700d802aac8 (patch) | |
tree | 7f0371c5dbac688d24d4cffeb2ea651964c308a0 /perl-install/pkgs.pm | |
parent | d06a3088471c941ab391593528a92a9d8da45207 (diff) | |
download | drakx-6bc34e3caa78b47d130cff0dba6ea700d802aac8.tar drakx-6bc34e3caa78b47d130cff0dba6ea700d802aac8.tar.gz drakx-6bc34e3caa78b47d130cff0dba6ea700d802aac8.tar.bz2 drakx-6bc34e3caa78b47d130cff0dba6ea700d802aac8.tar.xz drakx-6bc34e3caa78b47d130cff0dba6ea700d802aac8.zip |
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
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r-- | perl-install/pkgs.pm | 10 |
1 files changed, 9 insertions, 1 deletions
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 { |