From 0760a4b9889ec7c5b1f7b33e70e41ca30812f838 Mon Sep 17 00:00:00 2001 From: Mason James Date: Wed, 27 Jun 2012 04:57:58 +1200 Subject: [PATCH] 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 Signed-off-by: Paul Poulain --- C4/Utils.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Utils.pm b/C4/Utils.pm index 31d50eb331..dac9423073 100644 --- 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/) { -- 2.20.1