From 0eb0cb6867f9d3bcb49915b8ae0098b4b13d62b7 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 28 Mar 2001 14:52:43 +0000
Subject: fixed wrong mouse probe.

---
 perl-install/Xconfig.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/Xconfig.pm')

diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm
index 52e4edb5c..81929b6df 100644
--- a/perl-install/Xconfig.pm
+++ b/perl-install/Xconfig.pm
@@ -30,6 +30,7 @@ sub getinfo {
     my ($mouse) = mouse::detect();
     add2hash($o->{mouse}, $mouse) unless $o->{mouse}{XMOUSETYPE};
     add2hash($o->{mouse}{auxmouse}, $mouse->{auxmouse}) unless $o->{mouse}{auxmouse}{XMOUSETYPE};
+    $o->{mouse}{auxmouse}{XMOUSETYPE} or delete $o->{mouse}{auxmouse};
 
     $o->{mouse}{device} ||= "mouse" if -e "/dev/mouse";
     $o;
-- 
cgit v1.2.1