From dbba4bdb651ed70c3b76b570f49516a9426dd0cf Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 7 Jul 2004 02:05:00 +0000 Subject: create write_preload_conf() --- perl-install/modules.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 8f4c52d79..7bc173d4f 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -321,6 +321,13 @@ sub write_conf() { if $v2 && !$written->{$mod}{$type}; } } + #- use module-init-tools script for the moment + run_program::rooted($::prefix, "/sbin/generate-modprobe.conf", ">", "/etc/modprobe.conf") if -e "$::prefix/etc/modprobe.conf"; + + write_preload_conf(); +} + +sub write_preload_conf() { my @l; push @l, 'scsi_hostadapter' if !is_empty_array_ref($conf{scsi_hostadapter}{probeall}); push @l, grep { detect_devices::matching_driver("^$_\$") } qw(bttv cx8800 saa7134); @@ -330,8 +337,6 @@ sub write_conf() { } append_to_modules_loaded_at_startup("$::prefix/etc/modules", @l); append_to_modules_loaded_at_startup("$::prefix/etc/modprobe.preload", @l_26); - #- use module-init-tools script for the moment - run_program::rooted($::prefix, "/sbin/generate-modprobe.conf", ">", "/etc/modprobe.conf") if -e "$::prefix/etc/modprobe.conf"; } sub append_to_modules_loaded_at_startup { -- cgit v1.2.1