diff options
| -rw-r--r-- | perl-install/partition_table/dos.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm index a6ad4be76..3518e6738 100644 --- a/perl-install/partition_table/dos.pm +++ b/perl-install/partition_table/dos.pm @@ -20,6 +20,12 @@ my $offset = $common::SECTORSIZE - length($magic) - $nb_primary * common::psizeo sub hasExtended { 1 } +sub last_usable_sector { + my ($hd) = @_; + #- do not use totalsectors, see gi/docs/Partition-ends-after-end-of-disk.txt for more + $hd->{geom}{sectors} * $hd->{geom}{heads} * $hd->{geom}{cylinders}; +} + sub compute_CHS($$) { my ($hd, $e) = @_; my @l = qw(cyl head sec); |