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;