summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2001-03-04 18:25:34 +0000
committerStew Benedict <stewb@mandriva.org>2001-03-04 18:25:34 +0000
commit0bd746bb5c9ad9713dd3775283516d9d9ddc702d (patch)
treeaaafcb702926d3a870cb13acb007649d317195fe /perl-install/partition_table.pm
parent4696c33db7269fec1671fae299ba5a89ffdbd748 (diff)
downloaddrakx-backup-do-not-use-0bd746bb5c9ad9713dd3775283516d9d9ddc702d.tar
drakx-backup-do-not-use-0bd746bb5c9ad9713dd3775283516d9d9ddc702d.tar.gz
drakx-backup-do-not-use-0bd746bb5c9ad9713dd3775283516d9d9ddc702d.tar.bz2
drakx-backup-do-not-use-0bd746bb5c9ad9713dd3775283516d9d9ddc702d.tar.xz
drakx-backup-do-not-use-0bd746bb5c9ad9713dd3775283516d9d9ddc702d.zip
*** empty log message ***
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 9211d68c3..eb134ffc6 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 isLVM isRAID isMDRAID isLVMBased 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 isAppleBootstrap) ],
);
@EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
@@ -231,7 +231,7 @@ sub isNT($) { arch() !~ /^sparc/ && $_[0]{type} == 0x7 }
sub isSupermount($) { $_[0]{type} eq 'supermount' }
sub isHFS($) { $type2fs{$_[0]{type}} eq 'hfs' }
sub isApple($) { $type2fs{$_[0]{type}} eq 'apple' && defined $_[0]{isDriver} }
-sub isBootstrap($) { $type2fs{$_[0]{type}} eq 'apple' && defined $_[0]{isBoot} }
+sub isAppleBootstrap($) { $type2fs{$_[0]{type}} eq 'apple' && defined $_[0]{isBoot} }
sub isHiddenMacPart { defined $_[0]{isMap} }
sub isLoopback { defined $_[0]{loopback_file} }
sub isTrueFS { isExt2($_[0]) || isReiserfs($_[0]) }