diff options
Diffstat (limited to 'MDK/Common/Func.pm')
| -rw-r--r-- | MDK/Common/Func.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm index caa5358..7ce9d5a 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -236,20 +236,20 @@ sub every(&@) { sub map_index(&@) { my $f = shift; my @v; local $::i = 0; - map { @v = &$f($::i); $::i++; @v } @_; + map { @v = $f->(); $::i++; @v } @_; } sub each_index(&@) { my $f = shift; local $::i = 0; foreach (@_) { - &$f($::i); + &$f->(); $::i++; } } sub grep_index(&@) { my $f = shift; my $v; local $::i = 0; - grep { $v = &$f($::i); $::i++; $v } @_; + grep { $v = $f->(); $::i++; $v } @_; } sub find_index(&@) { my $f = shift; |