summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-05 12:21:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-05 12:21:21 +0000
commit3812fd80c231dba41da389d575547492c994552c (patch)
treec5bd5ebef3318e2b49f3e30ee82e9a63608445a0 /perl-install
parentea53889397cdeccecf3a61b9c20c953629026cd4 (diff)
downloaddrakx-3812fd80c231dba41da389d575547492c994552c.tar
drakx-3812fd80c231dba41da389d575547492c994552c.tar.gz
drakx-3812fd80c231dba41da389d575547492c994552c.tar.bz2
drakx-3812fd80c231dba41da389d575547492c994552c.tar.xz
drakx-3812fd80c231dba41da389d575547492c994552c.zip
use find_index instead of map_index
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 = (