Bug 6679 - [SIGNED-OFF] fix 2 perlcritic violations in C4/Utils.pm

Subroutine prototypes used at line 38, column 1.  See page 194 of PBP.  (Severity: 5)

Subroutine prototypes used at line 43, column 1.  See page 194 of PBP.  (Severity: 5)

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>

diff --git a/C4/Utils.pm b/C4/Utils.pm
index 31d50eb..dac9423 100644 (file)
--- a/C4/Utils.pm
+++ b/C4/Utils.pm
@@ -35,12 +35,12 @@ BEGIN {
 }
 
 
-sub maxwidth (@) {
+sub maxwidth {
        (@_) or return 0;
        return (sort {$a <=> $b} map {length} @_)[-1];
 }
 
-sub hashdump ($$) {
+sub hashdump {
        my $pre = shift;
        my $val  = shift;
        if (ref($val) =~ /HASH/) {