diff options
Diffstat (limited to 'zarb-ml/mageia-dev/attachments/20120406/427b6f6a/attachment-0002.obj')
| -rw-r--r-- | zarb-ml/mageia-dev/attachments/20120406/427b6f6a/attachment-0002.obj | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/zarb-ml/mageia-dev/attachments/20120406/427b6f6a/attachment-0002.obj b/zarb-ml/mageia-dev/attachments/20120406/427b6f6a/attachment-0002.obj new file mode 100644 index 000000000..1ef2a41a3 --- /dev/null +++ b/zarb-ml/mageia-dev/attachments/20120406/427b6f6a/attachment-0002.obj @@ -0,0 +1,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; + }
\ No newline at end of file |