From b3c0f129bea93d7517820aead34e089a8b8592db Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 23 Mar 2004 12:20:49 +0000
Subject: LSB doesn't need kernel 2.4 anymore

---
 perl-install/bootloader.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 9f66ab165..f0c9022f2 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -424,7 +424,9 @@ sub dev2prompath { #- SPARC only
     $dev;
 }
 
-sub get_kernels_and_labels() {
+sub get_kernels_and_labels {
+    my ($b_prefer_24) = @_;
+
     my $dir = "$::prefix/boot";
     my @l = grep { /^vmlinuz-/ } all($dir);
     my @kernels = grep { ! -l "$dir/$_" } @l;
@@ -441,7 +443,7 @@ sub get_kernels_and_labels() {
 	  { complete_version => $_, /(.*mdk)(.*)/ ? (ext => $2, version => $1) : (version => $_) };
       } @kernels;
 
-    if (-e "$::prefix/usr/lib/lsb") {
+    if ($b_prefer_24) {
 	my ($kernel_24, $other) = partition { $_->{ext} eq '' && $_->{version} =~ /^\Q2.4/ } @kernels;
 	@kernels = (@$kernel_24, @$other);
     }
-- 
cgit v1.2.1