From 67b6893ec98ba6915b7d644fe1214e2048656b55 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 27 Sep 2004 04:43:45 +0000 Subject: perl_checker compliance --- perl-install/partition_table/dos.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm index ca64d3946..41ff7dfb3 100644 --- a/perl-install/partition_table/dos.pm +++ b/perl-install/partition_table/dos.pm @@ -130,7 +130,7 @@ sub geometry_from_edd { my $geom = { sectors => 0 + cat_("$edd_dir/legacy_sectors_per_track"), heads => 1 + cat_("$edd_dir/legacy_max_head"), from_edd => 1 }; - is_geometry_valid_for_the_partition_table($hd, $geom) or return; + is_geometry_valid_for_the_partition_table($hd, $geom, 0) or return; partition_table::raw::compute_nb_cylinders($geom, $hd->{totalsectors}); log::l("geometry_from_edd $hd->{device} $hd->{volume_id}: " . geometry_to_string($geom)); -- cgit v1.2.1