diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-18 20:22:16 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-18 20:22:16 +0000 |
commit | 9720badd53b62a5296a858c84bd2e5cb63dfd290 (patch) | |
tree | 9c9ad7c8ca1a3fd37d5762eb5023299287352b2e /perl-install | |
parent | 3ed2a748cd61ac9472dde801f06cc137decfa727 (diff) | |
download | drakx-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.pm | 1 | ||||
-rw-r--r-- | perl-install/raid.pm | 4 |
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 { |