summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-05 10:28:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-05 10:28:00 +0000
commit3dd0c333a60d7f109042a84773e913b8bdd9d37c (patch)
treece087580d99165f2c1fe86e80e85322a11c8ae57 /perl-install
parentc3a4851f2c4d0bc86b4705222dc052159c32bbc7 (diff)
downloaddrakx-backup-do-not-use-3dd0c333a60d7f109042a84773e913b8bdd9d37c.tar
drakx-backup-do-not-use-3dd0c333a60d7f109042a84773e913b8bdd9d37c.tar.gz
drakx-backup-do-not-use-3dd0c333a60d7f109042a84773e913b8bdd9d37c.tar.bz2
drakx-backup-do-not-use-3dd0c333a60d7f109042a84773e913b8bdd9d37c.tar.xz
drakx-backup-do-not-use-3dd0c333a60d7f109042a84773e913b8bdd9d37c.zip
fix "help lilo when there is hdd with no hdc drive"
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 0f6b2b728..2d6ed6009 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -721,6 +721,7 @@ sub write_lilo_conf {
my %dev2bios = reverse %bios2dev;
my %done;
if ($dev2bios{$dev}) {
+ log::l("Since we're booting on $bios2dev{0}, make it bios=0x80, whereas $dev is now " . (0x80 + $dev2bios{$dev}));
print F "disk=/dev/$bios2dev{0} bios=0x80";
printf F "disk=/dev/$dev bios=0x%x\n", 0x80 + $dev2bios{$dev};
$done{0} = $done{$dev2bios{$dev}} = 1;
@@ -733,7 +734,8 @@ sub write_lilo_conf {
&& $bios2dev{$_ - 1} eq "hd" . chr(ord($letter) - 1);
#- no need to help lilo with hdb (resp. hdd, hdf...)
$done{$_} = 1;
- printf F "disk=/dev/$bios2dev{1} bios=0x%x\n", 0x80 + $_;
+ log::l("Helping lilo: $bios2dev{$_} must be " . (0x80 + $_));
+ printf F "disk=/dev/$bios2dev{$_} bios=0x%x\n", 0x80 + $_;
}
print F "message=/boot/message" if (arch() !~ /ia64/);