View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/C4/Utils.pm (-3 / +2 lines)
Lines 35-46 BEGIN { Link Here
35
}
35
}
36
36
37
37
38
sub maxwidth (@) {
38
sub maxwidth {
39
	(@_) or return 0;
39
	(@_) or return 0;
40
	return (sort {$a <=> $b} map {length} @_)[-1];
40
	return (sort {$a <=> $b} map {length} @_)[-1];
41
}
41
}
42
42
43
sub hashdump ($$) {
43
sub hashdump {
44
	my $pre = shift;
44
	my $pre = shift;
45
	my $val  = shift;
45
	my $val  = shift;
46
	if (ref($val) =~ /HASH/) {
46
	if (ref($val) =~ /HASH/) {
47
- 

Return to bug 6679