From 74c79d68b2b44241f8f59ee5ef806eec985347a7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Jul 2002 17:58:23 +0000
Subject: fix default config for mouse

---
 perl-install/Xconfig/default.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl-install/Xconfig/default.pm b/perl-install/Xconfig/default.pm
index 6801eb49a..c33d084d8 100644
--- a/perl-install/Xconfig/default.pm
+++ b/perl-install/Xconfig/default.pm
@@ -13,7 +13,11 @@ sub configure {
     my ($keyboard, $mouse) = @_;
 
     $keyboard ||= keyboard::read($::prefix);
-    $mouse ||= $::noauto ? mouse::read($::prefix) : mouse::detect();
+    $mouse ||= do {
+	my $mouse = mouse::read($::prefix); 
+	add2hash($mouse, mouse::detect()) if !$::noauto;
+	$mouse;
+    };
 
 
     my $raw_X = Xconfig::xfree->empty_config;
-- 
cgit v1.2.1