summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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 = (