summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-05 00:12:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-05 00:12:41 +0000
commitfea56565f393deb123e46a1285f262b541e00dd5 (patch)
tree6a92b167584af27e466f9bdbc023564cf3e77405 /perl-install
parent7b3a7108699fb985eaa41ccf0dcb3df2fa6af85b (diff)
downloaddrakx-fea56565f393deb123e46a1285f262b541e00dd5.tar
drakx-fea56565f393deb123e46a1285f262b541e00dd5.tar.gz
drakx-fea56565f393deb123e46a1285f262b541e00dd5.tar.bz2
drakx-fea56565f393deb123e46a1285f262b541e00dd5.tar.xz
drakx-fea56565f393deb123e46a1285f262b541e00dd5.zip
no_comment
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");