diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-17 12:20:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-17 12:20:51 +0000 |
| commit | c3940ee6ff3f630fff35f282851c10804ac52b71 (patch) | |
| tree | d3a65fe77c80b62fa7960421bb924c8288c48af0 /MDK/Common/Func.pm | |
| parent | b421421786bf1a7d1aea77979e3181cddd754012 (diff) | |
| download | perl-MDK-Common-c3940ee6ff3f630fff35f282851c10804ac52b71.tar perl-MDK-Common-c3940ee6ff3f630fff35f282851c10804ac52b71.tar.gz perl-MDK-Common-c3940ee6ff3f630fff35f282851c10804ac52b71.tar.bz2 perl-MDK-Common-c3940ee6ff3f630fff35f282851c10804ac52b71.tar.xz perl-MDK-Common-c3940ee6ff3f630fff35f282851c10804ac52b71.zip | |
add ";" to please perl_checker
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 e954a0b..eca3493 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -198,7 +198,7 @@ sub fold_left(&@) { local ($::a, $::b); $::a = $initial; foreach (@l) { $::b = $_; $::a = &$f() } - $::a + $::a; } sub smapn { @@ -206,7 +206,7 @@ sub smapn { my $n = shift; my @r; for (my $i = 0; $i < $n; $i++) { push @r, &$f(map { $_->[$i] } @_) } - @r + @r; } sub mapn(&@) { my $f = shift; @@ -220,7 +220,7 @@ sub mapn_(&@) { sub find(&@) { my $f = shift; $f->($_) and return $_ foreach @_; - undef + undef; } sub any(&@) { my $f = shift; |