summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table/dos.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index 5ba3c940f..86f2c0256 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -151,15 +151,16 @@ sub set_best_geometry_for_the_partition_table {
log::l("$hd->{device}: would need looking at BIOS info to find out geometry");
return;
}
+ my $default_ok = is_geometry_valid_for_the_partition_table($hd, $hd->{geom}, 0);
if ($guessed_geom->{invalid}) {
log::l("$hd->{device}: no valid geometry guessed from partition table");
+ $default_ok and return;
$guessed_geom = try_every_geometry($hd) or return;
}
if ($guessed_geom->{heads} == $hd->{geom}{heads} && $guessed_geom->{sectors} == $hd->{geom}{sectors}) {
# cool!
} else {
- my $default_ok = is_geometry_valid_for_the_partition_table($hd, $hd->{geom}, 0);
my $guessed_ok = is_geometry_valid_for_the_partition_table($hd, $guessed_geom, 0);
if ($default_ok && $guessed_ok) {
#- oh my!?