1 files changed, 2 insertions, 6 deletions
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);