From d5398d16525faf667da6bafb153cfff0f6189428 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 18 Jan 2001 13:35:53 +0000
Subject: fixed obligation of relative large install, now minimum is lesser.

---
 perl-install/install_steps.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 685379a7d..74955e357 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -268,8 +268,11 @@ sub choosePackages {
 	pkgs::unselectAllPackages($packages);
 	pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}};
 
-	add2hash_($o, { compssListLevel => $::expert ? 5 : 4 }) unless $::auto_install;
-	pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $o->{compssListLevel}, $availableCorrected) if exists $o->{compssListLevel};
+	unless ($::expert) {
+	    add2hash_($o, { compssListLevel => 5 }) unless $::auto_install;
+	    exists $o->{compssListLevel}
+	      and pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $o->{compssListLevel}, $availableCorrected);
+	}
     }
 
     $availableCorrected;
-- 
cgit v1.2.1