diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-03-08 23:09:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-03-08 23:09:32 +0000 |
| commit | 15cde5c25f4ec7b5b8121d8a13ab9fe7c105e4b3 (patch) | |
| tree | 5fa84300a4af2638286890e21751c3090c6d2d4b /perl-install/partition_table.pm | |
| parent | cbb0bae07578f66abc44d3adb26f9e90cf6c8581 (diff) | |
| download | drakx-backup-do-not-use-15cde5c25f4ec7b5b8121d8a13ab9fe7c105e4b3.tar drakx-backup-do-not-use-15cde5c25f4ec7b5b8121d8a13ab9fe7c105e4b3.tar.gz drakx-backup-do-not-use-15cde5c25f4ec7b5b8121d8a13ab9fe7c105e4b3.tar.bz2 drakx-backup-do-not-use-15cde5c25f4ec7b5b8121d8a13ab9fe7c105e4b3.tar.xz drakx-backup-do-not-use-15cde5c25f4ec7b5b8121d8a13ab9fe7c105e4b3.zip | |
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
| -rw-r--r-- | perl-install/partition_table.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 586d85f26..660546339 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -7,7 +7,7 @@ use Data::Dumper; @ISA = qw(Exporter); %EXPORT_TAGS = ( - types => [ qw(type2name type2fs name2type fs2type isExtended isExt2 isSwap isDos isWin isFat isPrimary isNfs isSupermount isRAID isHFS isApplePartMap) ], + types => [ qw(type2name type2fs name2type fs2type isExtended isExt2 isSwap isDos isWin isFat isPrimary isNfs isSupermount isRAID isHFS isMountableRW isApplePartMap isLoopback) ], ); @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; @@ -173,7 +173,7 @@ arch() !~ /^sparc/ ? ( 0x1e => 'vfat', 0x82 => 'swap', 0x83 => 'ext2', - ox402 => 'hfs', + 0x402 => 'hfs', nfs => 'nfs', #- hack ); @@ -204,7 +204,9 @@ sub isFat($) { isDos($_[0]) || isWin($_[0]) } sub isNfs($) { $_[0]{type} eq 'nfs' } #- small hack sub isSupermount($) { $_[0]{type} eq 'supermount' } sub isHFS($) { $type2fs{$_[0]{type}} eq 'hfs' } +sub isMountableRW { isExt2($_[0]) || isFat($_[0]) } sub isApplePartMap { defined $_[0]{isMap} } +sub isLoopback { defined $_[0]{loopback_file} } sub isPrimary($$) { my ($part, $hd) = @_; @@ -320,7 +322,9 @@ sub adjust_local_extended($$) { sub get_normal_parts($) { my ($hd) = @_; + #- HACK !! $hd->{raid} and return grep {$_} @{$hd->{raid}}; + $hd->{loopback} and return grep {$_} @{$hd->{loopback}}; @{$hd->{primary}{normal} || []}, map { $_->{normal} } @{$hd->{extended} || []} } |