From a2ea000aa3aaaa1371542a2649adbd8b4c29c185 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 29 Aug 2001 21:25:16 +0000
Subject: (mkbootdisk): cleanup

---
 perl-install/bootloader.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index df680587f..ab4dbcc69 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -80,12 +80,7 @@ sub mkbootdisk($$$;$) {
     modules::load_multi(arch() =~ /sparc/ ? 'romfs' : (), 'loop');
     my @l = qw(mkbootdisk --noprompt); 
     push @l, "--appendargs", $append if $append;
-    if ($dev =~ /fd/) {
-	devices::make($dev . 'H1440');
-    } else {
-	push @l, "--bios", 0, if $dev !~ /fd/;
-    }
-    eval { modules::load_multi(qw(msdos vfat)) };
+    eval { modules::load('vfat') };
     run_program::rooted_or_die($prefix, @l, "--device", "/dev/$dev", $kernelVersion);
 }
 
-- 
cgit v1.2.1