From 86d42155bc11e397d502e9876aad2dd3082946f4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 18 Oct 2001 21:26:36 +0000 Subject: read part of GPT partition table working --- perl-install/partition_table.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/partition_table.pm') 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 { -- cgit v1.2.1