diff options
Diffstat (limited to 'MDK/Common/Func.pm')
| -rw-r--r-- | MDK/Common/Func.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm index 3e8285d..8cca560 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -181,7 +181,7 @@ sub smapn { my $f = shift; my $n = shift; my @r = (); - for (my $i = 0; $i < $n; $i++) { push @r, &$f(map { $_->[$i] } @_); } + for (my $i = 0; $i < $n; $i++) { push @r, &$f(map { $_->[$i] } @_) } @r } sub mapn(&@) { |