diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-07 16:35:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-07 16:35:22 +0000 |
| commit | 02b5998427c97ce65b6acc2095beb13bc96da9ba (patch) | |
| tree | 4d8b588dda98afce985a64a644e3bffa9f6476aa /perl-install | |
| parent | 56f71590d8582780ca7a44b33c2f5d3975999398 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/modules.pm | 5 |
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)); |