From bff2e783f7d82e9450d38f931820f95f98012e58 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 10 Nov 1999 02:20:32 +0000
Subject: no_comment

---
 perl-install/raid.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/raid.pm')

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;
-- 
cgit v1.2.1