From 5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Sep 2000 13:30:37 +0000
Subject: no_comment

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

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

diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 585f2565e..8bc4d858e 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -7,6 +7,7 @@ use strict;
 #- misc imports
 #-######################################################################################
 use common qw(:common :functional);
+use partition_table qw(:types);
 use run_program;
 use devices;
 use commands;
@@ -17,11 +18,6 @@ sub nb($) {
     first((ref $nb ? $nb->{device} : $nb) =~ /(\d+)/);
 }
 
-sub is($) {
-    my ($part) = @_;
-    $part->{device} =~ /^md/;
-}
-
 sub new($$) {
     my ($raid, $part) = @_;
     my $nb = @$raid; 
@@ -122,7 +118,7 @@ EOF
 
 sub make {
     my ($raid, $part) = @_;
-    is($_) and make($raid, $_) foreach @{$part->{disks}};
+    isMDRAID($_) 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