From 1be510f9529cb082f802408b472a77d074b394c0 Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Sun, 14 Apr 2013 13:46:12 +0000
Subject: Add zarb MLs html archives

---
 .../attachments/20120406/427b6f6a/attachment.obj    | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 zarb-ml/mageia-dev/attachments/20120406/427b6f6a/attachment.obj

(limited to 'zarb-ml/mageia-dev/attachments/20120406/427b6f6a/attachment.obj')

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
-- 
cgit v1.2.1