diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 310c00041..29bf33959 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -161,7 +161,10 @@ sub read { } my ($type) = map { - if (my $type = partition_table::raw::typeOfMBR($_)) { + if (m!/fd\d+$!) { + warn "not checking the method on floppy, assuming $main_method is right\n"; + $main_method; + } elsif (my $type = partition_table::raw::typeOfMBR($_)) { warn "typeOfMBR $type on $_ for method $main_method\n" if $ENV{DEBUG}; $type; } else { () } |