From 31df0a5caff2ac502324cd6047dc1f5c95399236 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 25 Jul 2005 02:47:57 +0000
Subject: fix alps touchpads detection

---
 perl-install/detect_devices.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index eeec05624..61192d2fc 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -475,9 +475,7 @@ sub getInputDevices() {
 }
 
 sub getSynapticsTouchpads() {
-    grep {
-        member($_->{description}, "|SynPS/2 Synaptics TouchPad", "|AlpsPS/2 ALPS TouchPad");
-    } getInputDevices();
+    grep { $_->{description} =~ m,^\|(?:SynPS/2 Synaptics TouchPad$|AlpsPS/2 ALPS), } getInputDevices();
 }
 
 sub getSerialModem {
-- 
cgit v1.2.1