summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-22 13:42:56 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-22 13:42:56 +0000
commitfa845d634ddf9621f473daaff6973d5e7789639e (patch)
tree6f27c31eb98454a6963fbec8ab666196918f8eb0 /perl-install
parent81d899420d0b2357de761abba1547dbdec230a5b (diff)
downloaddrakx-fa845d634ddf9621f473daaff6973d5e7789639e.tar
drakx-fa845d634ddf9621f473daaff6973d5e7789639e.tar.gz
drakx-fa845d634ddf9621f473daaff6973d5e7789639e.tar.bz2
drakx-fa845d634ddf9621f473daaff6973d5e7789639e.tar.xz
drakx-fa845d634ddf9621f473daaff6973d5e7789639e.zip
(write_conf) simplify
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 59c89903f..f722f7540 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -312,9 +312,7 @@ sub write_conf() {
}
my @l;
push @l, 'scsi_hostadapter' if !is_empty_array_ref($conf{scsi_hostadapter}{probeall});
- foreach (qw(bttv cx8800 saa7134)) {
- push @l, $_ if detect_devices::matching_driver('^$_$');
- }
+ push @l, grep { detect_devices::matching_driver('^$_$') } qw(bttv cx8800 saa7134);
my @l_26 = @l;
if (my ($agp) = probe_category('various/agpgart')) {
push @l_26, $agp->{driver};