diff options
| -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 { |