summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-03 19:25:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-03 19:25:17 +0000
commitc218f055913e9433502b83a8d3d052b7aec79cb2 (patch)
treef6f2f32bfed8c02c0ccc026b31fcfa7dbfe1eb2d /perl-install
parenta1aef824dc9233eb6fc42b74a202da1e341e11ce (diff)
downloaddrakx-c218f055913e9433502b83a8d3d052b7aec79cb2.tar
drakx-c218f055913e9433502b83a8d3d052b7aec79cb2.tar.gz
drakx-c218f055913e9433502b83a8d3d052b7aec79cb2.tar.bz2
drakx-c218f055913e9433502b83a8d3d052b7aec79cb2.tar.xz
drakx-c218f055913e9433502b83a8d3d052b7aec79cb2.zip
add isLVMBased
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 aa57f0e30..9211d68c3 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -6,7 +6,7 @@ package partition_table; # $Id$
@ISA = qw(Exporter);
%EXPORT_TAGS = (
- types => [ qw(type2name type2fs name2type fs2type isExtended isExt2 isReiserfs isTrueFS isSwap isDos isWin isFat isSunOS isOtherAvailableFS isPrimary isNfs isSupermount isRAID isMDRAID isHFS isNT isMountableRW isNonMountable isApplePartMap isLoopback isApple isBootstrap) ],
+ types => [ qw(type2name type2fs name2type fs2type isExtended isExt2 isReiserfs isTrueFS isSwap isDos isWin isFat isSunOS isOtherAvailableFS isPrimary isNfs isSupermount isLVM isRAID isMDRAID isLVMBased isHFS isNT isMountableRW isNonMountable isApplePartMap isLoopback isApple isBootstrap) ],
);
@EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
@@ -216,6 +216,7 @@ sub isExtended($) { arch() !~ /^sparc/ && ($_[0]{type} == 5 || $_[0]{type} == 0x
sub isLVM($) { $_[0]{type} == 0x8e }
sub isRAID($) { $_[0]{type} == 0xfd }
sub isMDRAID { $_[0]{device} =~ /^md/ }
+sub isLVMBased { $_[0]{LVMname} }
sub isSwap($) { $type2fs{$_[0]{type}} eq 'swap' }
sub isExt2($) { $type2fs{$_[0]{type}} eq 'ext2' }
sub isReiserfs($) { $type2fs{$_[0]{type}} eq 'reiserfs' }