fix another typo from Titi in #9112 fix (#6802)

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 638bebd5b..cb4d2ae2e 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -318,7 +318,7 @@ sub write_conf() {
     }
     my @l;
     push @l, 'scsi_hostadapter' if !is_empty_array_ref($conf{scsi_hostadapter}{probeall});
-    push @l, grep { detect_devices::matching_driver('^$_$') } qw(bttv cx8800 saa7134);
+    push @l, grep { detect_devices::matching_driver("^$_\$") } qw(bttv cx8800 saa7134);
     my @l_26 = @l;
     if (my ($agp) = probe_category('various/agpgart')) {
 	push @l_26, $agp->{driver};