From 67b53f4298b8536bc5cea5c1aff0c538e0925c3d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 6 Jan 2004 15:25:28 +0000
Subject: remove mkbootdisk support

---
 perl-install/bootloader.pm | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index c6d3b935e..6e86c0bef 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -68,14 +68,6 @@ sub mkinitrd {
     -e "$::prefix/$initrdImage";
 }
 
-sub mkbootdisk {
-    my ($kernelVersion, $dev, $append) = @_;
-
-    modules::load(if_(arch() =~ /sparc/, 'romfs'), 'loop', 'vfat');
-    my @l = if_($append, '--appendargs', $append);
-    run_program::rooted_or_die($::prefix, 'mkbootdisk', '--noprompt', @l, '--device', "/dev/$dev", $kernelVersion);
-}
-
 sub read() {
     my $file = sprintf("/etc/%s.conf", arch() =~ /sparc/ ? 'silo' : arch() =~ /ppc/ ? 'yaboot' : 'lilo');
     my $bootloader = $file =~ /lilo/ && detect_bootloader() =~ /GRUB/ ? read_grub() : read_lilo($file);
-- 
cgit v1.2.1