summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.xs.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/c/stuff.xs.pl')
-rwxr-xr-xperl-install/c/stuff.xs.pl4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 72af65f27..a0fffc6c7 100755
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -122,6 +122,8 @@ PedPartitionFlag string_to_pedpartflag(char*type) {
PedPartitionFlag flag = 0;
if (!strcmp(type, "ESP")) {
flag = PED_PARTITION_ESP;
+ } else if (!strcmp(type, "BIOS_GRUB")) {
+ flag = PED_PARTITION_BIOS_GRUB;
} else if (!strcmp(type, "LVM")) {
flag = PED_PARTITION_LVM;
} else if (!strcmp(type, "RAID")) {
@@ -687,6 +689,8 @@ get_disk_partitions(char * device_path)
char *flag = "";
if (ped_partition_get_flag(part, PED_PARTITION_ESP)) {
flag = "ESP";
+ } else if (ped_partition_get_flag(part, PED_PARTITION_BIOS_GRUB)) {
+ flag = "BIOS_GRUB";
} else if (ped_partition_get_flag(part, PED_PARTITION_LVM)) {
flag = "LVM";
} else if (ped_partition_get_flag(part, PED_PARTITION_RAID)) {