From 32add8d1612f809a0185db584e0e3e9dd4794c8e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 25 Feb 2000 12:33:38 +0000
Subject: no_comment

---
 perl-install/fsedit.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/fsedit.pm')

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 7e8fcf862..8f23f1795 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -263,10 +263,9 @@ sub allocatePartitions($$) {
 				$part = { start => $start, size => 0, maxsize => $size }, 
 				$hds, $to_add)) {
 		add($hd, $part, $hds);
+		$size -= $part->{size} + $part->{start} - $start;
 		$start = $part->{start} + $part->{size};
-		$size -= $part->{size};
 	    }
-	    $start = $_->{start} + $_->{size};
 	}
     }
 }
-- 
cgit v1.2.1