summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-26 16:15:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-26 16:15:03 +0000
commitb3f38ef54228345b51813641a044a8bf615b3b95 (patch)
treeb29e83e84b22ffeba0b6512a416f18bab40e7a50 /perl-install/modules.pm
parent5088bd44d2469cbcd9e58ee8f6cae74bc9e43cfd (diff)
downloaddrakx-backup-do-not-use-b3f38ef54228345b51813641a044a8bf615b3b95.tar
drakx-backup-do-not-use-b3f38ef54228345b51813641a044a8bf615b3b95.tar.gz
drakx-backup-do-not-use-b3f38ef54228345b51813641a044a8bf615b3b95.tar.bz2
drakx-backup-do-not-use-b3f38ef54228345b51813641a044a8bf615b3b95.tar.xz
drakx-backup-do-not-use-b3f38ef54228345b51813641a044a8bf615b3b95.zip
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index a8b5c3939..f13c86ec2 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -558,14 +558,15 @@ sub write_conf {
print F "$type $mod $v2\n" if $v2 && $type ne "loaded" && !$written->{$mod}{$type};
}
}
- my @l = map { "scsi_hostadapter$_\n" } '', 1..$scsi-1 if $scsi;
+ my @l = map { "scsi_hostadapter$_" } '', 1..$scsi-1 if $scsi;
push @l, 'ide-floppy' if detect_devices::ide_zips();
push @l, 'bttv' if grep { $_->{driver} eq 'bttv' } detect_devices::probeall();
+ my $l = join '|', @l;
log::l("to put in modules @l");
substInFile {
- $_ = '' if /^scsi_hostadapter/;
- $_ = join '', @l if eof;
+ $_ = '' if /$l/;
+ $_ = join '', map { "$_\n" } @l if eof;
} "$prefix/etc/modules";
}