@@ -, +, @@ C4/Utils.pm --- C4/Utils.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) --- a/C4/Utils.pm +++ a/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/) { --