diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-06-05 19:10:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-06-05 19:10:21 +0000 |
| commit | f4f2d5e5a0ad224db2e5983054657b3cefdc9d06 (patch) | |
| tree | 3b12d5f8e1b6156a44ab859e9f49f83e3faec223 /perl-install/partition_table.pm | |
| parent | db2b62bdd8670a29de6ad645f28a48d758b3cb84 (diff) | |
| download | drakx-f4f2d5e5a0ad224db2e5983054657b3cefdc9d06.tar drakx-f4f2d5e5a0ad224db2e5983054657b3cefdc9d06.tar.gz drakx-f4f2d5e5a0ad224db2e5983054657b3cefdc9d06.tar.bz2 drakx-f4f2d5e5a0ad224db2e5983054657b3cefdc9d06.tar.xz drakx-f4f2d5e5a0ad224db2e5983054657b3cefdc9d06.zip | |
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
| -rw-r--r-- | perl-install/partition_table.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 4b77d5d6a..82eb6a4c5 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -22,7 +22,7 @@ use log; @important_types = ('Linux native', 'Linux swap', 'Win98 FAT32'); -@important_types2 = ('ReiserFS', 'Linux RAID'); +@important_types2 = (arch() =~ /i.86/ ? 'ReiserFS' : (), 'Linux RAID'); @fields2save = qw(primary extended totalsectors); @@ -32,9 +32,9 @@ my %types = ( arch() =~ /^ppc/ ? ( 0x401 => 'Apple Partition', 0x402 => 'Apple HFS Partition', -) : ( +) : arch() =~ /^i.86/ ? ( 0x183 => 'ReiserFS', -), arch() =~ /^sparc/ ? ( +) : arch() =~ /^sparc/ ? ( 0x1 => 'SunOS boot', 0x2 => 'SunOS root', 0x3 => 'SunOS swap', @@ -345,7 +345,8 @@ sub get_normal_parts($) { sub get_holes($) { my ($hd) = @_; - my $start = 1; + my $start = arch() eq "alpha" ? 2048 : 1; + map { my $current = $start; $start = $_->{start} + $_->{size}; |