diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-01-05 00:12:41 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-01-05 00:12:41 +0000 |
commit | fea56565f393deb123e46a1285f262b541e00dd5 (patch) | |
tree | 6a92b167584af27e466f9bdbc023564cf3e77405 /perl-install | |
parent | 7b3a7108699fb985eaa41ccf0dcb3df2fa6af85b (diff) | |
download | drakx-backup-do-not-use-fea56565f393deb123e46a1285f262b541e00dd5.tar drakx-backup-do-not-use-fea56565f393deb123e46a1285f262b541e00dd5.tar.gz drakx-backup-do-not-use-fea56565f393deb123e46a1285f262b541e00dd5.tar.bz2 drakx-backup-do-not-use-fea56565f393deb123e46a1285f262b541e00dd5.tar.xz drakx-backup-do-not-use-fea56565f393deb123e46a1285f262b541e00dd5.zip |
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/modules.pm | 10 |
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"); |