From 464471cc828cb5cf1bec6d5780fc3aaa4d0d992e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 5 Nov 2002 23:59:36 +0000
Subject: (xmouse2xId): ensure weird ids are ignored

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

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index da60bf354..2ba077c5c 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -109,7 +109,7 @@ sub xmouse2xId {
     my ($id) = @_;
     $id = 'BusMouse' if $id eq 'MouseMan';
     $id = 'IMPS/2' if $id eq 'ExplorerPS/2' && $::isInstall;
-    find_index { $_ eq $id } @xmousetypes;
+    eval { find_index { $_ eq $id } @xmousetypes } || 0;
 }
 
 my %mouse_btn_keymap = (
-- 
cgit v1.2.1