summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table/gpt.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-06-08 22:48:20 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-06-11 09:39:32 +0200
commit83565d0739e5746ea02c210106a2d1f1d1477eda (patch)
tree26f2c7d16ac0db03877aba5f03c09909d22048e6 /perl-install/partition_table/gpt.pm
parente07551ebb52e93af424de2d3a2bf07b01c94de92 (diff)
downloaddrakx-83565d0739e5746ea02c210106a2d1f1d1477eda.tar
drakx-83565d0739e5746ea02c210106a2d1f1d1477eda.tar.gz
drakx-83565d0739e5746ea02c210106a2d1f1d1477eda.tar.bz2
drakx-83565d0739e5746ea02c210106a2d1f1d1477eda.tar.xz
drakx-83565d0739e5746ea02c210106a2d1f1d1477eda.zip
detect GRUB_BIOS partitions (mga#18656)
let's abuse ->{pt_type} for tracking such partitions
Diffstat (limited to 'perl-install/partition_table/gpt.pm')
-rw-r--r--perl-install/partition_table/gpt.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 4a277f7b6..472976377 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -128,6 +128,8 @@ sub read_one {
# fix detecting ESP (special case are they're detected through pt_type):
if ($_->{flag} eq 'ESP') {
$_->{pt_type} = 0xef;
+ } elsif ($_->{flag} eq 'BIOS_GRUB') {
+ $_->{pt_type} = $_->{flag};
} elsif ($_->{flag} eq 'LVM') {
$_->{pt_type} = 0x8e;
} elsif ($_->{flag} eq 'RAID') {
@@ -169,6 +171,8 @@ sub write {
my $flag;
if (isESP($part)) {
$flag = 'ESP';
+ } elsif (isBIOS_GRUB($part)) {
+ $flag = 'BIOS_GRUB';
} elsif (isRawLVM($part)) {
$flag = 'LVM';
} elsif (isRawRAID($part)) {