From bca044d23e02fbe89a93aa8df9cf4916cd9e2eaf Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 26 Aug 2004 02:45:26 +0000 Subject: (detect) do not return unusable synaptics driver at beginning of install --- perl-install/mouse.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 415600bec..956692057 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -292,6 +292,7 @@ sub detect { my $synaptics_mouse; if (my $mouse_nb = grep { /^H: Handlers=mouse/ } @input_devices) { my $univ_mouse = fullname2mouse('Universal|Any PS/2 & USB mice', wacom => \@wacom); + $::isInstall && !$::o->{mouse} and return $univ_mouse; #- don't try to use synpatics at beginning of install if (any { m!^N: Name="(?:SynPS/2 Synaptics TouchPad|AlpsPS/2 ALPS TouchPad)"$! } @input_devices) { $synaptics_mouse = fullname2mouse('PS/2|Synaptics Touchpad'); $mouse_nb < 2 and return $synaptics_mouse; -- cgit v1.2.1