summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-07 16:35:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-07 16:35:22 +0000
commit02b5998427c97ce65b6acc2095beb13bc96da9ba (patch)
tree4d8b588dda98afce985a64a644e3bffa9f6476aa /perl-install/modules.pm
parent56f71590d8582780ca7a44b33c2f5d3975999398 (diff)
downloaddrakx-02b5998427c97ce65b6acc2095beb13bc96da9ba.tar
drakx-02b5998427c97ce65b6acc2095beb13bc96da9ba.tar.gz
drakx-02b5998427c97ce65b6acc2095beb13bc96da9ba.tar.bz2
drakx-02b5998427c97ce65b6acc2095beb13bc96da9ba.tar.xz
drakx-02b5998427c97ce65b6acc2095beb13bc96da9ba.zip
new "append_to_etc_modules" function
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 61530652e..de06013db 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -249,6 +249,11 @@ sub write_conf {
my @l = ();
push @l, 'scsi_hostadapter' if !is_empty_array_ref($conf{scsi_hostadapter}{probeall});
push @l, 'bttv' if grep { $_->{driver} eq 'bttv' } detect_devices::probeall();
+ append_to_etc_modules($prefix, @l);
+}
+
+sub append_to_etc_modules {
+ my ($prefix, @l) = @_;
my $l = join '|', map { '^\s*'.$_.'\s*$' } @l;
log::l("to put in modules ", join(", ", @l));