From c36ea7f3d6b5195c92633a975b28bd642f996ad9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 29 Sep 2004 03:25:51 +0000
Subject: (write_preload_conf) simplify

---
 perl-install/modules.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index a5211cf60..29c101691 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -175,7 +175,7 @@ sub write_preload_conf {
     push @l, 'scsi_hostadapter' if $conf->get_probeall('scsi_hostadapter');
     push @l, intersection([ qw(bttv cx8800 saa7134) ],
 			  [ map { $_->{driver} } detect_devices::probeall() ]);
-    push @, 'nvram' if any { m!^N: Name="SynPS/2 Synaptics TouchPad"$! } cat_('/proc/bus/input/devices');
+    push @, 'nvram' if cat_('/proc/bus/input/devices') =~ m!^N: Name="SynPS/2 Synaptics TouchPad"$!m;
     my @l_26 = @l;
     if (my ($agp) = probe_category('various/agpgart')) {
 	push @l_26, $agp->{driver};
-- 
cgit v1.2.1