summaryrefslogtreecommitdiffstats
path: root/MDK/Common/Func.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-13 14:40:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-13 14:40:56 +0000
commit602848d7fba65f080b8a5a3f46b881b48320e4f5 (patch)
tree618368bc5473795b0616a0d46f21274744fe13ba /MDK/Common/Func.pm
parent3cfc42b677f1599e57e63ae189f5d39d1e5d8f5e (diff)
downloadperl-MDK-Common-602848d7fba65f080b8a5a3f46b881b48320e4f5.tar
perl-MDK-Common-602848d7fba65f080b8a5a3f46b881b48320e4f5.tar.gz
perl-MDK-Common-602848d7fba65f080b8a5a3f46b881b48320e4f5.tar.bz2
perl-MDK-Common-602848d7fba65f080b8a5a3f46b881b48320e4f5.tar.xz
perl-MDK-Common-602848d7fba65f080b8a5a3f46b881b48320e4f5.zip
add/remove spaces to make perl_checker happy
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
}