diff options
| -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 { |