From 1479d9412b18b6b1087c742d7e699b35ebe55afd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 13 Jan 2014 20:34:50 +0100
Subject: fix random order of fields with perl-5.18

---
 perl-install/NEWS                  | 1 +
 perl-install/standalone/harddrake2 | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index bbacca42f..2f8650349 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,5 +1,6 @@
 - harddrake:
   o fix detecting some wireless devices as scanners (mga#9895)
+  o fix random order of fields with perl-5.18
 
 Version 16.21 - 13 January 2014
 
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 5447afffe..1caabb455 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -308,7 +308,7 @@ $tree->get_selection->signal_connect('changed' => sub {
             my ($grouped, $ungrouped) = partition {
                 my $field = $_;
                 member($field, map { @$_ } values %groups);
-            } keys %device_fields;
+            } sort keys %device_fields;
             my @formated;
             foreach my $group ($identification, grep { $_ ne $identification } keys %groups) {
                 my @fields = @{$groups{$group}};
-- 
cgit v1.2.1