summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm15
1 files changed, 13 insertions, 2 deletions
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;
d='n131' href='#n131'>131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147