From 03580c07c5a712562e05bd5cd948acdc9dbc041d Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 28 Sep 2007 15:13:39 +0000
Subject: make mice list dynamic, since it probes pci bus

---
 lib/mouse.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/mouse.pm b/lib/mouse.pm
index 3afcca0..a5c2ee1 100644
--- a/lib/mouse.pm
+++ b/lib/mouse.pm
@@ -17,7 +17,7 @@ use log;
 
 my @mouses_fields = qw(nbuttons MOUSETYPE Protocol name EmulateWheel);
 
-my %mice = 
+sub all_mice() {
  arch() =~ /^sparc/ ? 
 (
  'sunmouse' =>
@@ -92,6 +92,7 @@ my %mice =
    [ [ 0, 'none', 'Microsoft', N_("No mouse") ],
    ] ],
 );
+}
 
 #- Logitech MX700
 #-
@@ -186,13 +187,14 @@ sub fullnames() {
 		'';
 	    }
 	} @{$::b->[1]};
-    } %mice;
+    } all_mice();
 }
 
 sub fullname2mouse {
     my ($fname, %opts) = @_;
     my ($type, @l) = split '\|', $fname;
     my $name = pop @l; #- ensure we get rid of "[Other]"
+    my %mice = all_mice();
 
     if (my @devices = @{$mice{$type}[0]}) {
 	member($opts{device}, @devices) or delete $opts{device};
-- 
cgit v1.2.1