diff options
| -rw-r--r-- | perl-install/bootloader.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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"; } |