From e2cf26546e724fd5c3f581cfdad62f317da5d284 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 30 May 2005 02:58:14 +0000 Subject: (write_preload_conf) factorize modules managment --- perl-install/modules.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/modules.pm b/perl-install/modules.pm index f35a44b93..2351bd556 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -188,12 +188,9 @@ sub write_preload_conf { my ($conf) = @_; my @l; push @l, 'scsi_hostadapter' if $conf->get_probeall('scsi_hostadapter'); - push @l, map { $_->{driver} } probe_category($_) foreach qw(multimedia/dvb multimedia/tv); push @l, map { if_($_->{driver} =~ /^Module:(.*)/, $1) } detect_devices::probeall(); push @l, 'nvram' if detect_devices::isLaptop(); - push @l, map { $_->{driver} } probe_category('various/laptop'); - push @l, map { $_->{driver} } probe_category('input/joystick'); - push @l, map { $_->{driver} } probe_category('various/crypto'); + push @l, map { $_->{driver} } probe_category($_) foreach qw(multimedia/dvb multimedia/tv various/laptop input/joystick various/crypto); push @l, 'padlock' if cat_("/proc/cpuinfo") =~ /rng_en/; push @l, 'evdev' if detect_devices::getSynapticsTouchpads(); my @l_26 = @l; -- cgit v1.2.1