diff options
| -rwxr-xr-x | perl-install/c/stuff.xs.pl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index b2929adeb..f54a8689b 100755 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -611,28 +611,6 @@ get_iso_volume_ids(int fd) print ' int -get_partition_flag(char * device_path, int part_number, char *type) - CODE: - PedDevice *dev = ped_device_get(device_path); - RETVAL = 0; - if(dev) { - PedDisk* disk = ped_disk_new(dev); - if(disk) { - PedPartition* part = ped_disk_get_partition(disk, part_number); - if (!part) { - printf("is_partition_ESP: failed to find partition\n"); - } else { - PedPartitionFlag flag = string_to_pedpartflag(type); - if (flag) - RETVAL=ped_partition_get_flag(part, flag); - } - ped_disk_destroy(disk); - } - } - OUTPUT: - RETVAL - -int set_partition_flag(char * device_path, int part_number, char *type) CODE: PedDevice *dev = ped_device_get(device_path); |