Lines Matching defs:compactDump
101 return $short if length $short <= $compactDump;
189 if ($compactDump && !grep(ref $_, values %{$v})) {
202 (print "$short\n"), return if length $short <= $compactDump;
225 if ($compactDump && !grep(ref $_, @{$v})) {
234 (print "$short\n"), return if length $short <= $compactDump;
236 #if ($compactDump && $short = ShortArray($v)) {
303 sub compactDump {
304 $compactDump = shift if @_;
305 $compactDump = 6*80-1 if $compactDump and $compactDump < 2;
306 $compactDump;
311 compactDump(1) if !$compactDump and $veryCompact;