summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-03-07 12:29:24 +0000
committerFrancois Pons <fpons@mandriva.com>2001-03-07 12:29:24 +0000
commit1a4a094525ac7f13f00df143e87d1a8283b03ce4 (patch)
tree7628b6a683b78dbf4895c602586c1fa435fa5643 /perl-install
parent9d0d9669958fa6c420a3c1ebcea4becdc3cc477f (diff)
downloaddrakx-1a4a094525ac7f13f00df143e87d1a8283b03ce4.tar
drakx-1a4a094525ac7f13f00df143e87d1a8283b03ce4.tar.gz
drakx-1a4a094525ac7f13f00df143e87d1a8283b03ce4.tar.bz2
drakx-1a4a094525ac7f13f00df143e87d1a8283b03ce4.tar.xz
drakx-1a4a094525ac7f13f00df143e87d1a8283b03ce4.zip
fixed support for other kernel for bootloader entries.
automatically add 2.2 entries for kernel22 (manage hack-kernel too).
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm55
-rw-r--r--perl-install/install_any.pm2
2 files changed, 36 insertions, 21 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 06baf7fcf..6f52d9fa0 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -150,7 +150,7 @@ sub add_entry($$) {
sub add_kernel($$$$$) {
my ($prefix, $lilo, $kernelVersion, $specific, $v) = @_;
- my $ext = $specific && "-$specific"; $specific eq 'hack' and $specific = '';
+ my $ext = $specific && "-$specific"; $specific =~ s/\d+\.\d+|hack//;
my $kname = "vmlinuz";
if (arch() =~ /ppc/) {
$kname = "vmlinux";
@@ -305,16 +305,31 @@ wait %d seconds for default boot.
root => "/dev/$root",
})->{append} .= " failsafe" unless $lilo->{password};
- #- manage hackkernel if installed.
- my $hasHack = -e "$prefix/boot/vmlinuz-hack";
- if ($hasHack) {
- my $hackVersion = first(readlink("$prefix/boot/vmlinuz-hack") =~ /vmlinuz-(.*)/);
- add_kernel($prefix, $lilo, $hackVersion, 'hack',
- {
- label => 'hack',
- root => "/dev/$root",
- $vga_fb ? ( vga => $vga_fb) : (), #- using framebuffer
- }) if $hackVersion;
+ #- manage older kernel if installed.
+ foreach (qw(2.2 hack)) {
+ my $hasOld = -e "$prefix/boot/vmlinuz-$_";
+ if ($hasOld) {
+ my $oldVersion = first(readlink("$prefix/boot/vmlinuz-$_") =~ /vmlinuz-(.*mdk)/);
+ my $oldSecure = -e "$prefix/boot/vmlinuz-${_}secure";
+ my $oldSMP = $isSMP && -e "$prefix/boot/vmlinuz-${_}smp";
+
+ add_kernel($prefix, $lilo, $oldVersion, $oldSecure ? "${_}secure" : $oldSMP ? "${_}smp" : $_,
+ {
+ label => "linux-$_",
+ root => "/dev/$root",
+ $vga_fb ? ( vga => $vga_fb) : (), #- using framebuffer
+ });
+ add_kernel($prefix, $lilo, $oldVersion, $_,
+ {
+ label => $oldSecure || $oldSMP ? "linux-${_}up" : "linux-${_}nonfb",
+ root => "/dev/$root",
+ }) if $oldSecure || $oldSMP || $vga_fb;
+ add_kernel($prefix, $lilo, $oldVersion, $_,
+ {
+ label => "failsafe-$_",
+ root => "/dev/$root",
+ })->{append} .= " failsafe" unless $lilo->{password};
+ }
}
if (arch() =~ /sparc/) {
@@ -332,15 +347,15 @@ wait %d seconds for default boot.
}) if $path && isSunOS($_) && type2name($_->{type}) =~ /root/i;
}
}
- } elsif (arch() =~ /ppc/) {
- #- if we identified a MacOS partition earlier - add it
- if (defined $partition_table_mac'macos_part) {
- add_entry($lilo->{entries},
- {
- label => "macos",
- kernel_or_dev => $partition_table_mac'macos_part
- });
- }
+ } elsif (arch() =~ /ppc/) {
+ #- if we identified a MacOS partition earlier - add it
+ if (defined $partition_table_mac'macos_part) {
+ add_entry($lilo->{entries},
+ {
+ label => "macos",
+ kernel_or_dev => $partition_table_mac'macos_part
+ });
+ }
} else {
#- search for dos (or windows) boot partition. Don't look in extended partitions!
my ($dos, $win) = 0, 0;
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 8147dd73c..3b45c9cb2 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -197,7 +197,7 @@ sub clean_postinstall_rpms() {
#-######################################################################################
sub kernelVersion {
my ($o) = @_;
- local $_ = readlink("$::o->{prefix}/boot/vmlinuz") and return first(/vmlinuz-(.*)/);
+ local $_ = readlink("$::o->{prefix}/boot/vmlinuz") and return first(/vmlinuz-(.*mdk)/);
require pkgs;
my $p = pkgs::packageByName($o->{packages}, "kernel") or die "I couldn't find the kernel package!";