From 4fe837d51fcc99ac6d1e80463b5e13520b250839 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 10 Jan 2000 02:00:46 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

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) {
-- 
cgit v1.2.1