From 38dea3d2412ecdbe2988f58b7ce7a905aff5fb10 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 17 Nov 1999 21:49:12 +0000
Subject: *** empty log message ***

---
 perl-install/install2.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index ec7d0a666..1f2d8f1b1 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -339,8 +339,10 @@ sub formatPartitions {
 sub choosePackages {
     $o->setPackages if $_[1] == 1;
     $o->selectPackagesToUpgrade($o) if $o->{isUpgrade} && $_[1] == 1;
-    $o->choosePackages($o->{packages}, $o->{compss}, $o->{compssUsers}, $_[1] == 1);
-    do { $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}} } unless $o->{isUpgrade}; #- already done.
+    unless ($o->{isUpgrade}) {
+	$o->choosePackages($o->{packages}, $o->{compss}, $o->{compssUsers}, $_[1] == 1);
+	$o->{packages}{$_}{selected} = 1 foreach @{$o->{base}}; #- already done by selectPackagesToUpgrade.
+    }
 }
 
 #------------------------------------------------------------------------------
-- 
cgit v1.2.1