From 9faa22b3908b13cd0b26683b5781228a79e33cae Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 1 Jul 2005 06:54:52 +0000
Subject: new function is_dmraid()

---
 perl-install/fs/type.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index 1d036d7bb..d641c8945 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -344,6 +344,9 @@ sub isMounted { $_[0]{isMounted} }
 sub isBusy { isMounted($_[0]) || isPartOfRAID($_[0]) || isPartOfLVM($_[0]) || isPartOfLoopback($_[0]) }
 sub isSpecial { isRAID($_[0]) || isLVM($_[0]) || isLoopback($_[0]) || isUBD($_[0]) }
 
+#- not for partitions, but for hds:
+sub is_dmraid { $_[0]{bus} =~ /^dmraid_/ }
+
 sub can_be_this_fs_type {
     my ($part, $fs_type) = @_;
     can_be_one_of_those_fs_types($part, $fs_type);
-- 
cgit v1.2.1