summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm14
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 1c6d8e37a..04697998f 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -307,6 +307,20 @@ wait %d seconds for default boot.
$entry->{append} .= " quiet" if $vga_fb;
$failsafe->{append} .= " failsafe" if $failsafe && !$lilo->{password};
+ #- manage prioritary default kernel (given as /boot/vmlinuz-default).
+ if (-e "$prefix/boot/vmlinuz-default") {
+ #- we use directly add_entry as no initrd should be done.
+ add_entry($lilo->{entries},
+ {
+ type => 'image',
+ label => 'default',
+ root => "/dev/$root",
+ kernel_or_dev => '/boot/vmlinuz-default',
+ append => $lilo->{perImageAppend},
+ });
+ $lilo->{default} = 'default'; #- this one should be booted by default now.
+ }
+
#- manage older kernel if installed.
foreach (qw(2.2 hack)) {
my $hasOld = -e "$prefix/boot/vmlinuz-$_";