From 02b5998427c97ce65b6acc2095beb13bc96da9ba Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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(+) 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