fix random order of fields with perl-5.18

1 files changed, 1 insertions, 1 deletions

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}};