summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/modules.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 2d03a93af..b81d29f82 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -693,12 +693,12 @@ sub write_conf {
my @l = ();
push @l, 'ide-floppy' if detect_devices::ide_zips();
push @l, 'bttv' if grep { $_->{driver} eq 'bttv' } detect_devices::probeall();
- my $l = join '|', @l;
+ my $l = join '|', map { '^\s*'.$_.'\s*$' } @l;
log::l("to put in modules ", join(", ", @l));
substInFile {
- $_ = '' if /$l/;
- $_ = join '', map { "$_\n" } @l if eof;
+ $_ = '' if $l && /$l/;
+ $_ .= join '', map { "$_\n" } @l if eof;
} "$prefix/etc/modules";
}