From 9720badd53b62a5296a858c84bd2e5cb63dfd290 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 18 Aug 2001 20:22:16 +0000
Subject: update the raid size as it should be

---
 perl-install/fsedit.pm | 1 +
 perl-install/raid.pm   | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 69c2925e5..5aa41b797 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -516,6 +516,7 @@ sub auto_allocate_raids {
 	    my %h = %$md;
 	    delete @h{'hd', 'parts'};
 	    put_in_hash($part, \%h); # mntpoint, level, chunk-size, type
+	    raid::updateSize($part);
 	}
     }
 }
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index c59e7f691..2732beb34 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -22,11 +22,12 @@ sub nb {
 sub new {
     my ($raids, @parts) = @_;
     my $nb = @$raids; 
-    $raids->[$nb] = { 'chunk-size' => "64k", type => 0x83, disks => [ @parts ], device => "md$nb", notFormatted => 1 };
+    $raids->[$nb] = { 'chunk-size' => "64k", type => 0x83, disks => [ @parts ], device => "md$nb", notFormatted => 1, level => 1 };
     foreach my $part (@parts) {
 	$part->{raid} = $nb;
 	delete $part->{mntpoint};
     }
+    update($raids->[$nb]);
     $nb;
 }
 
@@ -36,6 +37,7 @@ sub add {
     $part->{raid} = $nb;
     delete $part->{mntpoint};
     push @{$raids->[$nb]{disks}}, $part;
+    update($raids->[$nb]);
 }
 
 sub delete {
-- 
cgit v1.2.1