summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-03-23 12:20:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-03-23 12:20:49 +0000
commitb3c0f129bea93d7517820aead34e089a8b8592db (patch)
tree231e5b7e19ba08db2c829c896df088e6d7d9d8d8 /perl-install/bootloader.pm
parenta0510196840ef299c9942fe2bd6f9d5c13e15964 (diff)
downloaddrakx-b3c0f129bea93d7517820aead34e089a8b8592db.tar
drakx-b3c0f129bea93d7517820aead34e089a8b8592db.tar.gz
drakx-b3c0f129bea93d7517820aead34e089a8b8592db.tar.bz2
drakx-b3c0f129bea93d7517820aead34e089a8b8592db.tar.xz
drakx-b3c0f129bea93d7517820aead34e089a8b8592db.zip
LSB doesn't need kernel 2.4 anymore
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm6
1 files changed, 4 insertions, 2 deletions
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);
}