summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_gpt.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-10-24 12:16:33 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-10-24 12:16:33 +0000
commitdf986ee73cb5d5b6a91f938b4351698ea359f29f (patch)
tree36313924e4eb63e04514be164f12bf3204fdcb8d /perl-install/partition_table_gpt.pm
parent0ccc4da1a3bb759bd4333e92efb4a72366b5cb00 (diff)
downloaddrakx-df986ee73cb5d5b6a91f938b4351698ea359f29f.tar
drakx-df986ee73cb5d5b6a91f938b4351698ea359f29f.tar.gz
drakx-df986ee73cb5d5b6a91f938b4351698ea359f29f.tar.bz2
drakx-df986ee73cb5d5b6a91f938b4351698ea359f29f.tar.xz
drakx-df986ee73cb5d5b6a91f938b4351698ea359f29f.zip
add methods first_usable_sector and last_usable_sector
Diffstat (limited to 'perl-install/partition_table_gpt.pm')
-rw-r--r--perl-install/partition_table_gpt.pm9
1 files changed, 9 insertions, 0 deletions
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;