diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-22 13:42:56 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-22 13:42:56 +0000 |
| commit | fa845d634ddf9621f473daaff6973d5e7789639e (patch) | |
| tree | 6f27c31eb98454a6963fbec8ab666196918f8eb0 /perl-install | |
| parent | 81d899420d0b2357de761abba1547dbdec230a5b (diff) | |
| download | drakx-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.pm | 4 |
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}; |