summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2017-03-06 22:14:05 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2017-03-06 22:14:05 +0100
commite8ebb6990c47b225e36ddd65c65a9182a6e2642d (patch)
treeaaa8d10268e76495a5e45a572963d25afa4f842c /perl-install
parentb6cede6d31f1e65d93a73952c01035b28860de17 (diff)
downloaddrakx-e8ebb6990c47b225e36ddd65c65a9182a6e2642d.tar
drakx-e8ebb6990c47b225e36ddd65c65a9182a6e2642d.tar.gz
drakx-e8ebb6990c47b225e36ddd65c65a9182a6e2642d.tar.bz2
drakx-e8ebb6990c47b225e36ddd65c65a9182a6e2642d.tar.xz
drakx-e8ebb6990c47b225e36ddd65c65a9182a6e2642d.zip
(get_partition_flag) kill it
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/c/stuff.xs.pl22
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);