summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-05 15:06:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-05 15:06:36 +0000
commitcbde3bb17d6727f6c8cdee03f78bf0b784c295b9 (patch)
treed040037cbd4af39614f947267a0700e4a8184fac /perl-install
parent2ce6d33cc058eb97820d49b021ac5a4712723885 (diff)
downloaddrakx-cbde3bb17d6727f6c8cdee03f78bf0b784c295b9.tar
drakx-cbde3bb17d6727f6c8cdee03f78bf0b784c295b9.tar.gz
drakx-cbde3bb17d6727f6c8cdee03f78bf0b784c295b9.tar.bz2
drakx-cbde3bb17d6727f6c8cdee03f78bf0b784c295b9.tar.xz
drakx-cbde3bb17d6727f6c8cdee03f78bf0b784c295b9.zip
- generate /etc/modprobe.preload (same as /etc/modules)
- fix call to generate-modprobe.conf
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm17
1 files changed, 8 insertions, 9 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 2746b3695..cfc09890f 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -247,9 +247,7 @@ sub mergein_conf {
}
}
-sub write_conf {
- my ($prefix) = @_;
-
+sub write_conf() {
my $file = "$prefix/etc/modules.conf";
rename "$prefix/etc/conf.modules", $file; #- make the switch to new name if needed
@@ -288,21 +286,22 @@ sub write_conf {
my @l;
push @l, 'scsi_hostadapter' if !is_empty_array_ref($conf{scsi_hostadapter}{probeall});
push @l, 'bttv' if any { $_->{driver} eq 'bttv' } detect_devices::probeall();
- append_to_etc_modules($prefix, @l);
+ append_to_modules_loaded_at_startup("$prefix/etc/modules", @l);
+ append_to_modules_loaded_at_startup("$prefix/etc/modprobe.preload", @l);
#- use module-init-tools script for the moment
- run_program::rooted($prefix, "/bin/sh", "/sbin/generate-modprobe.conf", ">", "/etc/modprobe.conf") if -e "$prefix/etc/modprobe.conf";
+ run_program::rooted($::prefix, "/sbin/generate-modprobe.conf", ">", "/etc/modprobe.conf") if -e "$prefix/etc/modprobe.conf";
}
-sub append_to_etc_modules {
- my ($prefix, @l) = @_;
+sub append_to_modules_loaded_at_startup {
+ my ($file, @l) = @_;
my $l = join '|', map { '^\s*'.$_.'\s*$' } @l;
- log::l("to put in modules ", join(", ", @l));
+ log::l("to put in $file ", join(", ", @l));
substInFile {
$_ = '' if $l && /$l/;
$_ .= join '', map { "$_\n" } @l if eof;
- } "$prefix/etc/modules";
+ } $file;
}
sub read_stage1_conf {