From 72324a1ab79d50807a8d372e68bbe815816464c6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Jan 2002 18:07:15 +0000
Subject: fix many disks bios remapping (esp. booting on scsi when ide is
 present)

---
 perl-install/bootloader.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 836a96506..5aff81522 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -689,7 +689,7 @@ sub write_lilo_conf {
 	if ($dev2bios{$dev}) {
 	    my %bios2dev = reverse %dev2bios;
 	    print  F "disk=/dev/$bios2dev{0} bios=0x80";
-	    printf F "disk=/dev/$dev bios=0x%x", 0x80 + $dev2bios{$dev};
+	    printf F "disk=/dev/$dev bios=0x%x\n", 0x80 + $dev2bios{$dev};
 	} elsif ($dev =~ /hd[bde]/) {
 	    print F "disk=/dev/$dev bios=0x80";
 	}
@@ -743,6 +743,7 @@ sub install_lilo {
 
 sub dev2bios {
     my ($hds, $where) = @_;
+    $where =~ s|/dev/||;
     my @dev = map { $_->{device} } @$hds;
     member($where, @dev) or ($where) = @dev; #- if not on mbr, 
 
-- 
cgit v1.2.1