From dd60c7b883a429a626c0d2f98446f34e40aa8620 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 4 Sep 1999 13:48:34 +0000
Subject: no_comment

---
 perl-install/install_any.pm   | 6 ++++--
 perl-install/install_steps.pm | 1 +
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index c813672b8..ff0a674a5 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -107,8 +107,10 @@ sub setPackages {
     $o->{compssList} = pkgs::readCompssList($o->{packages});
     push @{$o->{base}}, "kernel-smp" if smp::detect();
 
-    $o->{packages}{$_}{base} = 
-      $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}};
+    do {
+	my $p = $o->{packages}{$_} or log::l(), next;
+	pkgs::select($o->{packages}, $p, 1);
+    } foreach @{$o->{base}};
 
     pkgs::setShowFromCompss($o->{compss}, $o->{installClass}, $o->{lang});
 
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index ebae0afec..5d51e4ead 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -12,6 +12,7 @@ use run_program;
 use lilo;
 use lang;
 use keyboard;
+use printer;
 use pkgs;
 use log;
 use fsedit;
-- 
cgit v1.2.1