From fff0fecf10c98f77bdefcea0254fe2f03f8b1c34 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 26 Aug 2004 11:52:41 +0000 Subject: define and use $o->{mouse}{alternate_install} if detected mouse can't be used during install --- perl-install/mouse.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 55067cad6..84714e2db 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -292,8 +292,8 @@ 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) { + $::isInstall && $synaptics->{alternate_install} = $univ_mouse; #- don't try to use synpatics at beginning of install $synaptics_mouse = fullname2mouse('PS/2|Synaptics Touchpad'); $mouse_nb < 2 and return $synaptics_mouse; $univ_mouse->{auxmouse} = $synaptics_mouse; -- cgit v1.2.1