From 031168019ff8a7ee03c16f896620c3b0b6417257 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 23 Feb 2015 18:08:13 +0100 Subject: bind ped_disk_commit_to_os needed for next commit --- perl-install/c/stuff.xs.pl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'perl-install/c') diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 245746821..e6bcfa0db 100755 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -720,6 +720,22 @@ disk_add_partition(char * device_path, double start, double length, const char * OUTPUT: RETVAL +int +tell_kernel_to_reread_partition_table(char * device_path) + CODE: + PedDevice *dev = ped_device_get(device_path); + RETVAL=0; + if(dev) { + PedDisk* disk = ped_disk_new(dev); + if (disk) { + if (ped_disk_commit_to_os (disk)) + RETVAL=1; + ped_disk_destroy(disk); + } + } + OUTPUT: + RETVAL + #define BACKTRACE_DEPTH 20 -- cgit v1.2.1