diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-10 02:20:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-10 02:20:32 +0000 |
| commit | bff2e783f7d82e9450d38f931820f95f98012e58 (patch) | |
| tree | 165e01d00ab7fb7c930c844e54fa15f805938ebf /perl-install/raid.pm | |
| parent | bc05f062a49c21078346c2223d0807afc9ce20bd (diff) | |
| download | drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.gz drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.bz2 drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.xz drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.zip | |
no_comment
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; |