From 76146269a480fe664fc4a3280dd78c9070496b06 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 29 Jan 2003 01:14:41 +0000
Subject: software raid (mdX) can go up to md31

---
 perl-install/detect_devices.pm | 2 +-
 perl-install/raid.pm           | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 5487a7ca2..28898576c 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -757,7 +757,7 @@ sub raidAutoStartRaidtab {
     #- (choosing any inactive md)
     raid::inactivate_all();
     foreach (@parts) {
-	my $nb = find { !raid::is_active("md$_") } 0..7;
+	my $nb = find { !raid::is_active("md$_") } 0 .. raid::max_nb();
 	output("/tmp/raidtab", "raiddev /dev/md$nb\n  device " . devices::make($_->{device}) . "\n");
 	run_program::run('raidstart', '-c', "/tmp/raidtab", devices::make("md$nb"));
     }
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index ab6fa0fcb..c59bc3021 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -13,6 +13,8 @@ use devices;
 use modules;
 use fs;
 
+sub max_nb { 31 }
+
 sub nb { 
     my ($nb) = @_;
     first((ref $nb ? $nb->{device} : $nb) =~ /(\d+)/);
@@ -177,6 +179,6 @@ sub is_active {
     cat_("/proc/mdstat") =~ /^$dev /m;
 }
 
-sub inactivate_all() { run_program::run("raidstop", devices::make("md$_")) foreach 0..7 }
+sub inactivate_all() { run_program::run("raidstop", devices::make("md$_")) foreach 0..max_nb() }
 
 1;
-- 
cgit v1.2.1