summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-18 20:22:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-18 20:22:16 +0000
commit9720badd53b62a5296a858c84bd2e5cb63dfd290 (patch)
tree9c9ad7c8ca1a3fd37d5762eb5023299287352b2e /perl-install
parent3ed2a748cd61ac9472dde801f06cc137decfa727 (diff)
downloaddrakx-9720badd53b62a5296a858c84bd2e5cb63dfd290.tar
drakx-9720badd53b62a5296a858c84bd2e5cb63dfd290.tar.gz
drakx-9720badd53b62a5296a858c84bd2e5cb63dfd290.tar.bz2
drakx-9720badd53b62a5296a858c84bd2e5cb63dfd290.tar.xz
drakx-9720badd53b62a5296a858c84bd2e5cb63dfd290.zip
update the raid size as it should be
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fsedit.pm1
-rw-r--r--perl-install/raid.pm4
2 files changed, 4 insertions, 1 deletions
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 {