summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-20 23:23:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-20 23:23:53 +0000
commitee185e83064d4c2e082a3ab4efbee38d6d4ac2f8 (patch)
treea0d1cb192f09b6017a330c53bad0298209b3fa78 /perl-install
parente6c9255798e04223872c8d207a6a2134d128a8ce (diff)
downloaddrakx-ee185e83064d4c2e082a3ab4efbee38d6d4ac2f8.tar
drakx-ee185e83064d4c2e082a3ab4efbee38d6d4ac2f8.tar.gz
drakx-ee185e83064d4c2e082a3ab4efbee38d6d4ac2f8.tar.bz2
drakx-ee185e83064d4c2e082a3ab4efbee38d6d4ac2f8.tar.xz
drakx-ee185e83064d4c2e082a3ab4efbee38d6d4ac2f8.zip
simplify
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake22
1 files changed, 1 insertions, 1 deletions
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);