From 28412d69799fbe42c9b229a82dfdf6e2a33bebfe Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 19 Jul 2002 15:47:06 +0000
Subject: select default_packages directly during setPackages.

---
 perl-install/install_any.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 270c26713..50bb10e62 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -321,6 +321,7 @@ sub setPackages {
 
 	#- preselect default_packages and compssUsersChoices.
 	setDefaultPackages($o);
+	pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}};
     } else {
 	#- this has to be done to make sure necessary files for urpmi are
 	#- present.
-- 
cgit v1.2.1