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/standalone/harddrake2 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/harddrake2')

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