summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/c/stuff.xs.pl8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 73597cbd7..4b7ce74c3 100755
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -602,7 +602,10 @@ get_disk_partitions(char * device_path)
return;
part = ped_disk_next_partition(disk, NULL);
while(part) {
- if(part->num != -1) {
+ if(part->num == -1) {
+ part = ped_disk_next_partition(disk, part);
+ continue;
+ }
char desc[4196];
char *path = ped_partition_get_path(part);
sprintf(desc, "%d ", part->num);
@@ -626,9 +629,8 @@ get_disk_partitions(char * device_path)
}
sprintf(desc+strlen(desc), " (%lld,%lld,%lld)", part->geom.start, part->geom.end, part->geom.length);
XPUSHs(sv_2mortal(newSVpv(desc, 0)));
- }
part = ped_disk_next_partition(disk, part);
- }
+ }
ped_disk_destroy(disk);
}