From 22be98e89340b7860af5aafa811a896780d4379b Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 21 Mar 2005 15:32:42 +0000 Subject: use specific Synaptics settings for ALPS devices (#14512) --- perl-install/mouse.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 459c8ce61..28afa68aa 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -297,8 +297,9 @@ sub detect { return fullname2mouse('Universal|Microsoft Xbox Controller S'); } my $univ_mouse = fullname2mouse('Universal|Any PS/2 & USB mice', wacom => \@wacom); - if (any { m!^N: Name="(?:SynPS/2 Synaptics TouchPad|AlpsPS/2 ALPS TouchPad)"$! } @input_devices) { + if (my $synaptics_name = find { m!^N: Name="(?:SynPS/2 Synaptics TouchPad|AlpsPS/2 ALPS TouchPad)"$! } @input_devices) { $synaptics_mouse = fullname2mouse('Universal|Synaptics Touchpad'); + $synaptics_mouse->{ALPS} = $synaptics_name =~ /ALPS/; $::isInstall and $synaptics_mouse->{alternate_install} = $univ_mouse; #- do not try to use synpatics at beginning of install $mouse_nb < 2 and return $synaptics_mouse; $univ_mouse->{auxmouse} = $synaptics_mouse; -- cgit v1.2.1