summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-21 15:32:42 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-21 15:32:42 +0000
commit22be98e89340b7860af5aafa811a896780d4379b (patch)
treefc5881fb71f7cff9e23fb127e33f25b51f0ad528 /perl-install/mouse.pm
parenta5c82c41b6e313386f5f2bc0ecd4407df60f972e (diff)
downloaddrakx-backup-do-not-use-22be98e89340b7860af5aafa811a896780d4379b.tar
drakx-backup-do-not-use-22be98e89340b7860af5aafa811a896780d4379b.tar.gz
drakx-backup-do-not-use-22be98e89340b7860af5aafa811a896780d4379b.tar.bz2
drakx-backup-do-not-use-22be98e89340b7860af5aafa811a896780d4379b.tar.xz
drakx-backup-do-not-use-22be98e89340b7860af5aafa811a896780d4379b.zip
use specific Synaptics settings for ALPS devices (#14512)
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm3
1 files changed, 2 insertions, 1 deletions
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;