summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-05 23:59:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-05 23:59:36 +0000
commit464471cc828cb5cf1bec6d5780fc3aaa4d0d992e (patch)
tree8fd7c4d30ffcd4ecea3962e6f0b58cdddb09724e /perl-install/mouse.pm
parentbebd541064aad79235a8bd1d25660295ee0582ca (diff)
downloaddrakx-464471cc828cb5cf1bec6d5780fc3aaa4d0d992e.tar
drakx-464471cc828cb5cf1bec6d5780fc3aaa4d0d992e.tar.gz
drakx-464471cc828cb5cf1bec6d5780fc3aaa4d0d992e.tar.bz2
drakx-464471cc828cb5cf1bec6d5780fc3aaa4d0d992e.tar.xz
drakx-464471cc828cb5cf1bec6d5780fc3aaa4d0d992e.zip
(xmouse2xId): ensure weird ids are ignored
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm2
1 files changed, 1 insertions, 1 deletions
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 = (