summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table/dos.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index 23164a286..025dac4cb 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -109,7 +109,7 @@ sub is_geometry_valid_for_the_partition_table {
#- from parted, thanks!
my @valid_nb_sectors = (63, 61, 48, 32, 16);
-my @valid_nb_heads = (255, 192, 128, 96, 64, 61, 32, 17, 16);
+my @valid_nb_heads = (255, 240, 192, 128, 96, 64, 61, 32, 17, 16);
sub guess_geometry_from_partition_table {
my ($hd) = @_;
@@ -120,7 +120,7 @@ sub guess_geometry_from_partition_table {
partition_table::raw::compute_nb_cylinders($geom, $hd->{totalsectors});
log::l("guess_geometry_from_partition_table $hd->{device}: " . geometry_to_string($geom));
- member($geom->{heads}, @valid_nb_heads) && member($geom->{sectors}, @valid_nb_sectors) or return { invalid => 1 };
+ member($geom->{sectors}, @valid_nb_sectors) or return { invalid => 1 };
$geom;
}