From bb1ba670a8b075d2d5c12d2263d3b190e4f05b8d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 31 Jan 2003 13:40:42 +0000 Subject: (detect): cleanup the value returned when only a wacom is found --- perl-install/mouse.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index e9f3df1c5..babaa31f0 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -310,11 +310,7 @@ sub detect() { } #- in case only a wacom has been found, assume an inexistant mouse (necessary). - @wacom and return { CLASS => 'MOUSE', - nbuttons => 2, - device => "nothing", - MOUSETYPE => "Microsoft", - XMOUSETYPE => "Microsoft", wacom => \@wacom }; + @wacom and return fullname2mouse('none|No mouse', wacom => \@wacom); if (detect_devices::is_a_recent_computer() && $::isInstall) { #- special case for non detected usb interface on a box with no mouse. -- cgit v1.2.1