From 16081dbe0b2a41c9eb00fec7a566c17d0721a81e Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 9 Aug 2002 17:17:03 +0000
Subject: make sure size of packages is computed.

---
 perl-install/install_steps.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 1d19588b5..4283e51a4 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -252,11 +252,8 @@ sub setPackages {
     my ($o, $rebuild_needed) = @_;
 
     install_any::setPackages($o, $rebuild_needed);
-    if ($rebuild_needed) {
-	pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix}, $o->{base}, $o->{toRemove}, $o->{toSave});
-    } else {
-	pkgs::selectPackagesAlreadyInstalled($o->{packages}, $o->{prefix});
-    }
+    pkgs::selectPackagesAlreadyInstalled($o->{packages}, $o->{prefix});
+    $rebuild_needed and pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix}, $o->{base}, $o->{toRemove}, $o->{toSave});
 }
 
 sub choosePackages {
-- 
cgit v1.2.1