blob: 1ef2a41a387d510d119f7849f8cad5765a532200 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- gpt.pm.tv 2012-04-06 09:49:39.652735735 +0200
+++ gpt.pm 2012-04-06 09:49:22.447714279 +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);
+ my @pt = map { +{ part_number => $_ } } 1..$nb_primary;
+ $pt[$_-1] = $parts{$_} foreach keys %parts;
[ @pt ], $info;
}
|
