summaryrefslogtreecommitdiffstats
path: root/MDK/Common/Func.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 19:07:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 19:07:45 +0000
commit555a6a99fb88ad745be370843cfc79c26e17eb19 (patch)
tree6cc4380ab3acb94f851c7e8612f4c2bfeb62c81e /MDK/Common/Func.pm
parentc5e1636582b7f63668205b562a701300ea2d1b3f (diff)
downloadperl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.tar
perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.tar.gz
perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.tar.bz2
perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.tar.xz
perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.zip
remove unused variables
Diffstat (limited to 'MDK/Common/Func.pm')
-rw-r--r--MDK/Common/Func.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm
index c77b588..8048da9 100644
--- a/MDK/Common/Func.pm
+++ b/MDK/Common/Func.pm
@@ -201,7 +201,7 @@ sub map_index(&@) {
}
sub each_index(&@) {
my $f = shift;
- my @v; local $::i = 0;
+ local $::i = 0;
foreach (@_) {
&$f($::i);
$::i++;