From df986ee73cb5d5b6a91f938b4351698ea359f29f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 24 Oct 2001 12:16:33 +0000 Subject: add methods first_usable_sector and last_usable_sector --- perl-install/partition_table_gpt.pm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'perl-install/partition_table_gpt.pm') diff --git a/perl-install/partition_table_gpt.pm b/perl-install/partition_table_gpt.pm index 7512bb0c2..4662d58a8 100644 --- a/perl-install/partition_table_gpt.pm +++ b/perl-install/partition_table_gpt.pm @@ -225,6 +225,15 @@ sub raw_add { push @$raw, $part; } +sub first_usable_sector { + my ($hd) = @_; + $hd->{primary}{info}{firstUsableLBA}; +} +sub last_usable_sector { + my ($hd) = @_; + $hd->{primary}{info}{lastUsableLBA} + 1; +} + sub info { my ($hd) = @_; my $nb_sect = 32; -- cgit v1.2.1