diff options
-rwxr-xr-x | perl-install/c/stuff.xs.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 229e3b8ab..72af65f27 100755 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -637,7 +637,7 @@ set_partition_flag(char * device_path, int part_number, char *type) if (flag) RETVAL=ped_partition_set_flag(part, flag, 1); if (RETVAL) - RETVAL = ped_disk_commit(disk); + RETVAL = ped_disk_commit_to_dev(disk); } ped_disk_destroy(disk); } @@ -759,7 +759,7 @@ disk_del_partition(char * device_path, int part_number) } else { RETVAL=ped_disk_delete_partition(disk, part); if(RETVAL) { - RETVAL = ped_disk_commit(disk); + RETVAL = ped_disk_commit_to_dev(disk); } else { printf("del_partition failed\n"); } @@ -786,7 +786,7 @@ disk_add_partition(char * device_path, double start, double length, const char * } else RETVAL = ped_disk_add_partition (disk, part, constraint); if(RETVAL) { - RETVAL = ped_disk_commit(disk); + RETVAL = ped_disk_commit_to_dev(disk); } else { printf("add_partition failed\n"); } |