summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-10-19 15:11:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-10-19 15:11:54 +0000
commit75298521ee120412992df31ddd9f02338ff199fb (patch)
tree3677ce7107c9c78b234dc67dd431c5177cd630ee /perl-install
parentdfb93ec9c0e54c5401b905590715f258a0811f25 (diff)
downloaddrakx-75298521ee120412992df31ddd9f02338ff199fb.tar
drakx-75298521ee120412992df31ddd9f02338ff199fb.tar.gz
drakx-75298521ee120412992df31ddd9f02338ff199fb.tar.bz2
drakx-75298521ee120412992df31ddd9f02338ff199fb.tar.xz
drakx-75298521ee120412992df31ddd9f02338ff199fb.zip
fix ending is last sector, not next one
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table_gpt.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table_gpt.pm b/perl-install/partition_table_gpt.pm
index 134389cd8..3f30da4b9 100644
--- a/perl-install/partition_table_gpt.pm
+++ b/perl-install/partition_table_gpt.pm
@@ -110,7 +110,7 @@ sub read_partitionEntries {
map {
sysread $F, $tmp, psizeof($partitionEntry_format) or die "error while reading partition table in sector $info->{partitionEntriesLBA}";
my %h; @h{@$partitionEntry_fields} = unpack $partitionEntry_format, $tmp;
- $h{size} = $h{ending} - $h{start};
+ $h{size} = $h{ending} - $h{start} + 1;
$h{type} = $gpt_types_rev{$h{gpt_type}};
$h{type} = 0x100 if !defined $h{type};
\%h;
@@ -146,7 +146,7 @@ sub write {
my ($hd, $sector, $pt, $info) = @_;
foreach (@$pt) {
- $_->{ending} = $_->{start} + $_->{size};
+ $_->{ending} = $_->{start} + $_->{size} - 1;
$_->{guid} ||= 'TODO';
$_->{gpt_type} = $gpt_types{$_->{type}} || $_->{gpt_type} || $gpt_types{0x83};
}