From e9d5cd96b2054cad8cca21bc1e7c10e4f4e135ed Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 7 Nov 1999 11:52:51 +0000 Subject: no_comment --- perl-install/mouse.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index ecedfff9a..44bde68ac 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -45,6 +45,8 @@ my @mouses = ( [ 2, "atibm", "Busmouse", "BusMouse", __("ATI Bus Mouse") ], [ 2, "inportbm", "Busmouse", "BusMouse", __("Microsoft Bus Mouse") ], [ 3, "logibm", "Busmouse", "BusMouse", __("Logitech Bus Mouse") ], + [ 2, "usbmouse", "ps/2", "PS/2", __("USB Mouse") ], + [ 5, "usbmouse", "ps/2", "PS/2", __("USB Mouse (3 buttons or more)") ], ); map_index { my %l; @l{@mouses_fields} = @$_; @@ -92,8 +94,10 @@ sub detect() { eval { run_program::run("rmmod", "serial") }; if (my ($c) = pci_probing::main::probe("SERIAL_USB")) { - eval { modules::load($c->[1]) }; - return name2mouse("Generic Mouse (PS/2)") if !$@ && detect_devices::tryOpen("usbmouse"); + eval { modules::load($c->[1], 'usbmouse') }; + sleep(1); + return name2mouse("USB Mouse") if !$@ && detect_devices::tryOpen("usbmouse"); + modules::unload($c->[1]); } die "mouseconfig failed"; } -- cgit v1.2.1