From 23f9db1e651a6e2777decbfa8638d32178846bb2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 20 Mar 2001 17:02:57 +0000
Subject: - create install_any::unselectMostPackages - use it instead of
 pkgs::unselectAllPackages (otherwise default_packages ends up non-selected)

---
 perl-install/install_steps.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index ec8aa819b..1541ac61c 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -267,8 +267,7 @@ sub choosePackages {
     #- avoid destroying user selection of packages but only
     #- for expert, as they may have done individual selection before.
     if ($first_time || !$::expert) {
-	pkgs::unselectAllPackages($packages);
-	pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}};
+	install_any::unselectMostPackages($o);
 
 	unless ($::expert) {
 	    add2hash_($o, { compssListLevel => 5 }) unless $::auto_install;
-- 
cgit v1.2.1