summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 84d2b630e..5102e589c 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -2,7 +2,7 @@ package modules;
use vars qw(%loaded %drivers);
-use common qw(:common :file);
+use common qw(:common :file :system);
use detect_devices;
use run_program;
use log;
@@ -411,12 +411,20 @@ sub read_conf($;$) {
sub write_conf {
my ($file) = @_;
+
+ #- remove the post-install supermount stuff. We may have to add some more
+ substInFile { $_ = '' if /post-install supermount/ } $file;
+
my $written = read_conf($file);
my %net = detect_devices::net2module();
while (my ($k, $v) = each %net) { add_alias($k, $v) }
add_alias('scsi_hostadapter', 'ide-scsi') if detect_devices::getIDEBurners();
+ $conf{supermount}{"post-install"} =
+ join " ; ",
+ map { "modprobe $_" }
+ grep { $conf{$_}{alias} && $conf{$_}{alias} =~ /scsi_hostadapter/ } keys %conf;
local *F;
open F, ">> $file" or die("cannot write module config file $file: $!\n");