From f491ebbba3c4256b7b358a59516d0225ea7e5436 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 26 Oct 2001 13:06:51 +0000
Subject: no adjust start and end on GPT

---
 perl-install/partition_table_gpt.pm | 3 +++
 perl-install/partition_table_raw.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/partition_table_gpt.pm b/perl-install/partition_table_gpt.pm
index 4662d58a8..4a0514d8e 100644
--- a/perl-install/partition_table_gpt.pm
+++ b/perl-install/partition_table_gpt.pm
@@ -225,6 +225,9 @@ sub raw_add {
     push @$raw, $part;
 }
 
+sub adjustStart {}
+sub adjustEnd {}
+
 sub first_usable_sector {
     my ($hd) = @_;
     $hd->{primary}{info}{firstUsableLBA};
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index 5dfc82e74..1087d7fbb 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -77,7 +77,7 @@ sub adjustStart($$) {
 sub adjustEnd($$) {
     my ($hd, $part) = @_;
     my $end = $part->{start} + $part->{size};
-    $end == $hd->{totalsectors} and return;
+    $end > $hd->{geom}{cylinders} * cylinder_size($hd) && $end <= $hd->{totalsectors} and return;
     my $end1 = round_down($end, cylinder_size($hd));
     my $end2 = round_up($end - ($hd->{geom}{heads} > 2 ? 2 : 1) * $hd->{geom}{sectors}, cylinder_size($hd));
     $end2 <= $hd->{geom}{cylinders} * cylinder_size($hd) or die "adjustEnd go beyond end of device geometry ($end2 > $hd->{totalsectors})";
-- 
cgit v1.2.1