summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-23 14:03:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-23 14:03:08 +0000
commit0da82096be85c1477a062f650d51cf34c860a1c0 (patch)
tree5ed492b91daa05d40a3d8dfbdd9e43db33ac6210 /perl-install
parent73a87a8fb548d5836bca9f9d248f0508018a4121 (diff)
downloaddrakx-backup-do-not-use-0da82096be85c1477a062f650d51cf34c860a1c0.tar
drakx-backup-do-not-use-0da82096be85c1477a062f650d51cf34c860a1c0.tar.gz
drakx-backup-do-not-use-0da82096be85c1477a062f650d51cf34c860a1c0.tar.bz2
drakx-backup-do-not-use-0da82096be85c1477a062f650d51cf34c860a1c0.tar.xz
drakx-backup-do-not-use-0da82096be85c1477a062f650d51cf34c860a1c0.zip
don't use typeOfMBR to check the method on floppy which may not be inserted
(part of bugzilla #12213)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm5
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 { () }