From 02bdde89c4a1142e915461de2a0b7863d7d8daa9 Mon Sep 17 00:00:00 2001 From: Mason James Date: Wed, 27 Jun 2012 04:57:58 +1200 Subject: [PATCH 1/1] 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 --- C4/Utils.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Utils.pm b/C4/Utils.pm index 31d50eb..dac9423 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/) { -- 1.7.7.3