From 1c96a4bca915ba90a0738f338cc9f8616e2ba187 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 19 Mar 2014 16:56:23 +0100 Subject: [PATCH] Bug 9032: QA Follow-up: Use loop variable instead of $_ in opac-shareshelf Content-Type: text/plain; charset=utf-8 --- opac/opac-shareshelf.pl | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/opac/opac-shareshelf.pl b/opac/opac-shareshelf.pl index 9e12266..97fe8b2 100755 --- a/opac/opac-shareshelf.pl +++ b/opac/opac-shareshelf.pl @@ -283,8 +283,8 @@ sub stringtokey { sub alphabet_ordinal { my ($char, $alphabet) = @_; - for( 0..$#$alphabet ) { - return $_ if $char eq $alphabet->[$_]; + for my $ord ( 0..$#$alphabet ) { + return $ord if $char eq $alphabet->[$ord]; } return ''; #ignore missing chars } -- 1.7.7.6