Clean up some self-compliance issues now that MagicNumbers

[gknop/Perl-Critic.git] / lib / Perl / Critic / Policy / Subroutines / ProhibitManyArgs.pm

diff --git a/lib/Perl/Critic/Policy/Subroutines/ProhibitManyArgs.pm b/lib/Perl/Critic/Policy/Subroutines/ProhibitManyArgs.pm
index 6d31b29..35a27aa 100644 (file)
--- a/lib/Perl/Critic/Policy/Subroutines/ProhibitManyArgs.pm
+++ b/lib/Perl/Critic/Policy/Subroutines/ProhibitManyArgs.pm
@@ -60,7 +60,7 @@ sub violates {
     my $num_args;
     if ($elem->prototype) {
        # subtract two for the "()" on the prototype
-       $num_args = -2 + length $elem->prototype;
+       $num_args = -2 + length $elem->prototype;  ## no critic (ProhibitMagicNumbers)
     } else {
        $num_args = _count_args($elem->block->schildren);
     }