From 48d8ebf529f1b1c35babaf393b3066195bd6b07b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 24 Mar 2004 15:36:56 +0000
Subject: sorting based on @prefered is nearly unused, remove it

---
 perl-install/bootloader.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index f0c9022f2..49bd70ed1 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -430,13 +430,10 @@ sub get_kernels_and_labels {
     my $dir = "$::prefix/boot";
     my @l = grep { /^vmlinuz-/ } all($dir);
     my @kernels = grep { ! -l "$dir/$_" } @l;
-
-    my @preferred = ('', 'secure', 'enterprise', 'smp');
-    my %weights = map_index { $_ => $::i } @preferred;
     
     require pkgs;
     @kernels = 
-      sort { c::rpmvercmp($b->{version}, $a->{version}) || $weights{$a->{ext}} <=> $weights{$b->{ext}} } 
+      sort { c::rpmvercmp($b->{version}, $a->{version}) } 
       grep { -d "$::prefix/lib/modules/$_->{complete_version}" }
       map {
 	  s/vmlinuz-//;
-- 
cgit v1.2.1