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 49ac6ec19..da60bf354 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;
- my $i; map_index { $_ eq $id and $i = $::i } @xmousetypes; $i;
+ find_index { $_ eq $id } @xmousetypes;
}
my %mouse_btn_keymap = (