From 2ec22c6be3022d75eb460963d8874ca9c19a6aa2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 5 Nov 2002 19:48:08 +0000
Subject: - isUBD can tell wether it is an ubd partition - isSpecial is true
 for ubd partitions

---
 perl-install/partition_table.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index c7342f0e7..787e4e416 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -252,11 +252,12 @@ sub isPartOfLVM { defined $_[0]{lvm} }
 sub isPartOfRAID { defined $_[0]{raid} }
 sub isPartOfLoopback { defined $_[0]{loopback} }
 sub isRAID { $_[0]{device} =~ /^md/ }
+sub isUBD { $_[0]{device} =~ /^ubd/ } #- should be always true during an $::uml_install
 sub isLVM { $_[0]{VG_name} }
 sub isLoopback { defined $_[0]{loopback_file} }
 sub isMounted { $_[0]{isMounted} }
 sub isBusy { isMounted($_[0]) || isPartOfRAID($_[0]) || isPartOfLVM($_[0]) || isPartOfLoopback($_[0]) }
-sub isSpecial { isRAID($_[0]) || isLVM($_[0]) || isLoopback($_[0]) }
+sub isSpecial { isRAID($_[0]) || isLVM($_[0]) || isLoopback($_[0]) || isUBD($_[0]) }
 sub maybeFormatted { $_[0]{isFormatted} || !$_[0]{notFormatted} }
 
 
-- 
cgit v1.2.1