summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-05 19:48:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-05 19:48:08 +0000
commit2ec22c6be3022d75eb460963d8874ca9c19a6aa2 (patch)
tree4e6b754aa68835333585e547d3cdb0e2e615f095 /perl-install
parent96e1e09fe5e0535ce05d02a0123c74ae88114d24 (diff)
downloaddrakx-backup-do-not-use-2ec22c6be3022d75eb460963d8874ca9c19a6aa2.tar
drakx-backup-do-not-use-2ec22c6be3022d75eb460963d8874ca9c19a6aa2.tar.gz
drakx-backup-do-not-use-2ec22c6be3022d75eb460963d8874ca9c19a6aa2.tar.bz2
drakx-backup-do-not-use-2ec22c6be3022d75eb460963d8874ca9c19a6aa2.tar.xz
drakx-backup-do-not-use-2ec22c6be3022d75eb460963d8874ca9c19a6aa2.zip
- isUBD can tell wether it is an ubd partition
- isSpecial is true for ubd partitions
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm3
1 files changed, 2 insertions, 1 deletions
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} }