From 02b5998427c97ce65b6acc2095beb13bc96da9ba Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 7 Jul 2002 16:35:22 +0000
Subject: new "append_to_etc_modules" function

---
 perl-install/modules.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/modules.pm')

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));
 
-- 
cgit v1.2.1