diff options
Diffstat (limited to 'perl-install/raid.pm')
| -rw-r--r-- | perl-install/raid.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm index 5ee6f9c9d..a9a493f7a 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -43,7 +43,6 @@ sub delete($$) { my ($raid, $nb) = @_; $nb = nb($nb); - run_program::run("raidstop", devices::make($raid->[$nb]{device})); delete $_->{raid} foreach @{$raid->[$nb]{disks}}; $raid->[$nb] = undef; } @@ -61,6 +60,7 @@ sub changeNb($$$) { sub removeDisk($$) { my ($raid, $part) = @_; my $nb = nb($part->{raid}); + run_program::run("raidstop", devices::make($part->{device})); delete $part->{raid}; @{$raid->[$nb]{disks}} = grep { $_ != $part } @{$raid->[$nb]{disks}}; update($raid->[$nb]); @@ -127,7 +127,6 @@ sub make($$) { run_program::run("raidstop", $dev); &write($raid, "/etc/raidtab"); run_program::run("mkraid", "--really-force", $dev); - run_program::run("raidstart", $dev); } sub format_part($$) { @@ -157,4 +156,6 @@ sub prepare_prefixed($$) { } } +sub stopAll() { run_program::run("raidstop", devices::make("md$_")) foreach 0..7 } + 1; |