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