From ee185e83064d4c2e082a3ab4efbee38d6d4ac2f8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sun, 20 Jun 2004 23:23:53 +0000
Subject: simplify

---
 perl-install/standalone/harddrake2 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index e89549ae6..755d6c253 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -295,7 +295,7 @@ $tree->get_selection->signal_connect('changed' => sub {
                 next unless any { member($_, @fields) } @$grouped;
                 
                 push @formated, titleFormat($group);
-                push @formated, map { if_(ref $_, @$_) } $device_fields{$_} foreach @fields;
+                push @formated, map { if_(ref $_, @$_) } @device_fields{@fields};
             };
             push @formated, if_(@formated && @$ungrouped, titleFormat(N("Misc"))), map { @{$device_fields{$_}} } @$ungrouped;
             gtktext_insert($text, \@formated);
-- 
cgit v1.2.1