1 files changed, 0 insertions, 8 deletions
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);