From 7f2bd60493fd6a5830c5687d773007a3df74a914 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Sep 1999 18:55:06 +0000
Subject: no_comment

---
 perl-install/install2.pm    | 2 +-
 perl-install/install_any.pm | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index af172d770..9f416a957 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -378,7 +378,7 @@ sub formatPartitions {
 sub choosePackages {
     install_any::setPackages($o) if $_[1] == 1;
     $o->choosePackages($o->{packages}, $o->{compss}); 
-    $o->{packages}{$_}{base} = 1 foreach @{$o->{base}};
+    $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}};
 }
 
 sub doInstallStep {
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a1109f68e..c813672b8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -107,7 +107,8 @@ sub setPackages {
     $o->{compssList} = pkgs::readCompssList($o->{packages});
     push @{$o->{base}}, "kernel-smp" if smp::detect();
 
-    $o->{packages}{$_}{base} = 1 foreach @{$o->{base}};
+    $o->{packages}{$_}{base} = 
+      $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}};
 
     pkgs::setShowFromCompss($o->{compss}, $o->{installClass}, $o->{lang});
 
-- 
cgit v1.2.1