diff options
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 8cca560..6578010 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -1,3 +1,5 @@ +package MDK::Common::Func; + =head1 NAME MDK::Common::Func - miscellaneous functions @@ -142,8 +144,6 @@ L<MDK::Common> =cut -package MDK::Common::Func; - use MDK::Common::Math; @@ -180,7 +180,7 @@ sub fold_left(&@) { sub smapn { my $f = shift; my $n = shift; - my @r = (); + my @r; for (my $i = 0; $i < $n; $i++) { push @r, &$f(map { $_->[$i] } @_) } @r } |