diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-06-20 23:23:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-06-20 23:23:53 +0000 |
| commit | ee185e83064d4c2e082a3ab4efbee38d6d4ac2f8 (patch) | |
| tree | a0d1cb192f09b6017a330c53bad0298209b3fa78 /perl-install | |
| parent | e6c9255798e04223872c8d207a6a2134d128a8ce (diff) | |
| download | drakx-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-x | perl-install/standalone/harddrake2 | 2 |
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); |