summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-02 11:32:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-02 11:32:22 +0000
commit4d0b37afe2eab853201d1df9778b7d0e3932d323 (patch)
treed815ab25db4faab6a83fdade1b4ae0cce0f09395 /perl-install/partition_table.pm
parent45a8f2704e6b1f9760b86c2bb6748c546fb38f32 (diff)
downloaddrakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar
drakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.gz
drakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.bz2
drakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.tar.xz
drakx-4d0b37afe2eab853201d1df9778b7d0e3932d323.zip
add jfs support
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 684136207..c667f2d1a 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 isXfs isTrueFS isSwap isDos isWin isFat isSunOS isOtherAvailableFS isPrimary isNfs isSupermount isLVM isRAID isMDRAID isLVMBased isHFS isNT isMountableRW isNonMountable isApplePartMap isLoopback isApple isAppleBootstrap) ],
+ types => [ qw(type2name type2fs name2type fs2type isExtended isExt2 isReiserfs isXfs isJfs 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;
@@ -189,6 +189,7 @@ arch() !~ /sparc/ ? (
0x83 => 'ext2',
0x183=> 'reiserfs',
0x283=> 'xfs',
+ 0x383=> 'jfs',
0x401 => 'apple',
0x402 => 'hfs',
nfs => 'nfs', #- hack
@@ -223,6 +224,7 @@ sub isSwap($) { $type2fs{$_[0]{type}} eq 'swap' }
sub isExt2($) { $type2fs{$_[0]{type}} eq 'ext2' }
sub isReiserfs($) { $type2fs{$_[0]{type}} eq 'reiserfs' }
sub isXfs($) { $type2fs{$_[0]{type}} eq 'xfs' }
+sub isJfs($) { $type2fs{$_[0]{type}} eq 'jfs' }
sub isDos($) { arch() !~ /^sparc/ && $ {{ 1=>1, 4=>1, 6=>1 }}{$_[0]{type}} }
sub isWin($) { $ {{ 0xb=>1, 0xc=>1, 0xe=>1, 0x1b=>1, 0x1c=>1, 0x1e=>1 }}{$_[0]{type}} }
sub isFat($) { isDos($_[0]) || isWin($_[0]) }
@@ -237,7 +239,7 @@ sub isApple($) { $type2fs{$_[0]{type}} eq 'apple' && defined $_[0]{isDriver} }
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]) || isXfs($_[0]) }
+sub isTrueFS { isExt2($_[0]) || isReiserfs($_[0]) || isXfs($_[0]) || isJfs($_[0]) }
sub isMountableRW { isTrueFS($_[0]) || isOtherAvailableFS($_[0]) }
sub isNonMountable { isRAID($_[0]) || isLVM($_[0]) }