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 56e032a..b655ec8 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -173,7 +173,7 @@ sub fold_left(&@) { my ($f, $initial, @l) = @_; local ($::a, $::b); $::a = $initial; - foreach $::b (@l) { $::a = &$f() } + foreach (@l) { $::b = $_; $::a = &$f() } $::a } |