diff options
| -rwxr-xr-x | perl-install/c/stuff.xs.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index c8dc6130c..e255b570f 100755 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -696,7 +696,7 @@ get_disk_partitions(char * device_path) hv_store(rh, "fs_type", 7, newSVpv(part->fs_type->name, 0), 0); PUSHs(newRV((SV *)rh)); part = ped_disk_next_partition(disk, part); - } + } ped_disk_destroy(disk); } |