diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-10-18 21:26:36 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-10-18 21:26:36 +0000 |
| commit | 86d42155bc11e397d502e9876aad2dd3082946f4 (patch) | |
| tree | 23807c7b2231c4391cd81c6b9e5fbf5bdc1b2d49 /perl-install/partition_table.pm | |
| parent | b2f9aa5f68ea530d58ba4043a352b71c29cf352e (diff) | |
| download | drakx-86d42155bc11e397d502e9876aad2dd3082946f4.tar drakx-86d42155bc11e397d502e9876aad2dd3082946f4.tar.gz drakx-86d42155bc11e397d502e9876aad2dd3082946f4.tar.bz2 drakx-86d42155bc11e397d502e9876aad2dd3082946f4.tar.xz drakx-86d42155bc11e397d502e9876aad2dd3082946f4.zip | |
read part of GPT partition table working
Diffstat (limited to 'perl-install/partition_table.pm')
| -rw-r--r-- | perl-install/partition_table.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 70e374105..b2c779964 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -38,6 +38,7 @@ if_(arch() =~ /^ppc/, 0x383 => 'Journalised FS: JFS', 0x483 => 'Journalised FS: ext3', ), if_(arch() =~ /^ia64/, + 0x100 => 'Various', 0x183 => 'Journalised FS: ReiserFS', 0x283 => 'Journalised FS: XFS', 0x483 => 'Journalised FS: ext3', @@ -441,7 +442,10 @@ sub read_one($$) { #- it can be safely considered that the first sector is used to probe the partition table #- but other sectors (typically for extended partition ones) have to match this type! if (!$sector) { - my @parttype = arch() =~ /^sparc/ ? ('sun', 'bsd', 'unknown') : ('dos', 'bsd', 'sun', 'mac', 'unknown'); + my @parttype = ( + if_(arch() =~ /^ia64/, 'gpt'), + arch() =~ /^sparc/ ? ('sun', 'bsd', 'unknown') : ('dos', 'bsd', 'sun', 'mac', 'unknown'), + ); foreach ('empty', @parttype) { /unknown/ and die "unknown partition table format"; eval { |