From 2217db2d8f69a6800b63756da7b49e85388ca593 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 26 Aug 2004 11:44:13 +0000
Subject: (set_xfree_conf) don't create crappy auxmouse if there is none

---
 perl-install/mouse.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 956692057..55067cad6 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -365,7 +365,7 @@ sub set_xfree_conf {
     my ($mouse, $xfree_conf, $b_keep_auxmouse_unchanged) = @_;
 
     my ($synaptics, $mouse_) = partition { $_->{name} eq N_("Synaptics Touchpad") }
-      @{[ $mouse, if_($mouse->{auxmouse}, $mouse->{auxmouse}) ]};
+      @{[ $mouse, if_(!is_empty_hash_ref $mouse->{auxmouse}, $mouse->{auxmouse}) ]};
     my @mice = map {
 	{
 	    Protocol => $_->{XMOUSETYPE},
-- 
cgit v1.2.1