diff options
| author | Nicolas Vigier <boklm@mageia.org> | 2013-04-14 13:46:12 +0000 |
|---|---|---|
| committer | Nicolas Vigier <boklm@mageia.org> | 2013-04-14 13:46:12 +0000 |
| commit | 1be510f9529cb082f802408b472a77d074b394c0 (patch) | |
| tree | b175f9d5fcb107576dabc768e7bd04d4a3e491a0 /zarb-ml/mageia-dev/attachments/20120406/427b6f6a | |
| parent | fa5098cf210b23ab4f419913e28af7b1b07dafb2 (diff) | |
| download | archives-master.tar archives-master.tar.gz archives-master.tar.bz2 archives-master.tar.xz archives-master.zip | |
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 |