From 8eaa4cd8429b95eec58d2abdcb88e02a37423f06 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 27 Feb 2001 20:16:16 +0000
Subject: (mkbootdisk): fix for mkbootdisk using fd0H1440. Must be created

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e1e43b41c..3f1fcdda0 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -79,7 +79,11 @@ sub mkbootdisk($$$;$) {
     modules::load_multi(arch() =~ /sparc/ ? 'romfs' : (), 'loop');
     my @l = qw(mkbootdisk --noprompt); 
     push @l, "--appendargs", $append if $append;
-    push @l, "--bios", 0, if $dev !~ /fd/;
+    if ($dev =~ /fd/) {
+	devices::make($dev . 'H1440');
+    } else {
+	push @l, "--bios", 0, if $dev !~ /fd/;
+    }
     run_program::rooted($prefix, @l, "--device", "/dev/$dev", $kernelVersion) or die "mkbootdisk failed";
 }
 
-- 
cgit v1.2.1