- perl_checker: cleaner, more usable (via .perl_checker for -exclude's)

- perl_checker: more stricter syntax rules
- adapt *.pm's to those rules

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
 }