summaryrefslogtreecommitdiffstats
path: root/perl-install/raid.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/raid.pm')
-rw-r--r--perl-install/raid.pm5
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;