summaryrefslogtreecommitdiffstats
path: root/MDK/Common/Func.pm
diff options
context:
space:
mode:
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 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
}