diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-01-10 02:00:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-01-10 02:00:46 +0000 |
| commit | 4fe837d51fcc99ac6d1e80463b5e13520b250839 (patch) | |
| tree | b0c87fc4611a55f95d8812e1afbcef3475459740 /perl-install/pkgs.pm | |
| parent | 88d708135221a9b0147c08169fc03e20db45c113 (diff) | |
| download | drakx-4fe837d51fcc99ac6d1e80463b5e13520b250839.tar drakx-4fe837d51fcc99ac6d1e80463b5e13520b250839.tar.gz drakx-4fe837d51fcc99ac6d1e80463b5e13520b250839.tar.bz2 drakx-4fe837d51fcc99ac6d1e80463b5e13520b250839.tar.xz drakx-4fe837d51fcc99ac6d1e80463b5e13520b250839.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 91d81921c..4285ec229 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -313,7 +313,8 @@ sub setSelectedFromCompssList { 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] + ($_->{unskip} ? 10 : 0) } @packages; + #- special case for /^k/ aka kde stuff + my @values = map { $_->{values}[$ind] + ($_->{unskip} && $_->{name} !~ /^k/ ? 10 : 0) } @packages; sort { $values[$b] <=> $values[$a] } 0 .. $#packages; }; foreach (@places) { |