From 6350cc9f4b3d2cdb67566f3c582c991d72a6cf5c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 5 Sep 2007 10:35:28 +0000
Subject: - fix insmoding raid0 (#33172)

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

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 7c3381880..898af721e 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix insmoding raid0 (#33172)
+
 Version 10.4.189 - 4 September 2007, by Thierry Vignaud
 
 - summary screen:
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 91b6e9faf..220d4d1ce 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -101,8 +101,8 @@ sub module {
 
     if (member($level, 4, 5, 6)) {
 	'raid456';
-    } elsif ($level eq '1') {
-	'raid1';
+    } elsif ($level =~ /^\d+$/) {
+	"raid$level";
     } else {
 	$level;
     }
-- 
cgit v1.2.1