From 6dbd6e6db0495ddd9774f20f0fb3c239b15e13a2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 26 Nov 1999 16:48:30 +0000
Subject: no_comment

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

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

diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 8bce51b15..069ac7346 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -103,9 +103,9 @@ sub write($) {
     my ($raid, $file) = @_;
     local *F;
     local $\ = "\n";
+    open F, ">$file" or die _("Can't write file $file");
 
     foreach (grep {$_} @$raid) {
-	open F, ">$file" or die _("Can't write file $file");
 	print F <<"EOF";
 raiddev       /dev/$_->{device}
 raid-level    $_->{level}
@@ -122,6 +122,7 @@ EOF
 
 sub make($$) {
     my ($raid, $part) = @_;
+    is($_) and make($raid, $_) foreach @{$part->{disks}};
     my $dev = devices::make($part->{device});
     eval { commands::modprobe(module($part)) };
     run_program::run("raidstop", $dev);
-- 
cgit v1.2.1