summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-10-18 21:26:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-10-18 21:26:36 +0000
commit86d42155bc11e397d502e9876aad2dd3082946f4 (patch)
tree23807c7b2231c4391cd81c6b9e5fbf5bdc1b2d49 /perl-install/partition_table.pm
parentb2f9aa5f68ea530d58ba4043a352b71c29cf352e (diff)
downloaddrakx-backup-do-not-use-86d42155bc11e397d502e9876aad2dd3082946f4.tar
drakx-backup-do-not-use-86d42155bc11e397d502e9876aad2dd3082946f4.tar.gz
drakx-backup-do-not-use-86d42155bc11e397d502e9876aad2dd3082946f4.tar.bz2
drakx-backup-do-not-use-86d42155bc11e397d502e9876aad2dd3082946f4.tar.xz
drakx-backup-do-not-use-86d42155bc11e397d502e9876aad2dd3082946f4.zip
read part of GPT partition table working
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm6
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 {