--- gpt.pm.tv	2012-04-06 09:49:39.652735735 +0200
+++ gpt.pm	2012-04-06 09:54:11.720110925 +0200
@@ -31,16 +31,8 @@
         $p{part_number} => \%p;
     } c::get_disk_partitions($hd->{file});
 
-    my @pt = map {
-	my $part_number = $_;
-	if ($parts{$part_number}) {
-	    $parts{$part_number};
-	} else {
-	    my %p;
-	    $p{part_number} = $part_number;
-	    \%p;
-	}
-    } (1..$nb_primary);
+    add2hash(\%parts, { map { (part_number => $_) } 1..$nb_primary });
+    my @pt = map { $parts{$_} } sort keys %parts;
 
     [ @pt ], $info;
 }