diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-08 22:48:20 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-11 09:39:32 +0200 |
| commit | 83565d0739e5746ea02c210106a2d1f1d1477eda (patch) | |
| tree | 26f2c7d16ac0db03877aba5f03c09909d22048e6 /perl-install/partition_table | |
| parent | e07551ebb52e93af424de2d3a2bf07b01c94de92 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/partition_table/gpt.pm | 4 |
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)) { |