From e7d68d879571ae2e5a3301da94c18c3f9151cec0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 2 Dec 1999 10:31:11 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index b85be3b35..01d744038 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -275,12 +275,23 @@ sub isLangSensitive($$) {
 }
 
 sub setSelectedFromCompssList($$$$$$) {
-    my ($compssListLevels, $packages, $size, $install_class, $lang, $isUpgrade) = @_;
+    my ($compssListLevels, $packages, $level, $install_class) = @_;
+    my ($ind);
+
+    map_index { $ind = $::i if $_ eq $install_class } @$compssListLevels;
+
+    foreach (allpackages($packages)) {
+	&select($packages, $_) if $_->{values}[$ind] >= $level;
+    }
+}
+
+sub setSelectedFromCompssList_($$$$$$) {
+    my ($compssListLevels, $packages, $size, $install_class, $isUpgrade) = @_;
     my ($level, $ind) = 100;
 
     my @packages = allpackages($packages);
     my @places = do {
-	map_index { $ind = $::i if $_ eq $install_class } @{$compssListLevels};
+	map_index { $ind = $::i if $_ eq $install_class } @$compssListLevels;
 	defined $ind or log::l("unknown install class $install_class in compssList"), return;
 
 	my @values = map { $_->{values}[$ind] } @packages;
-- 
cgit v1.2.1