p4raw-id: //depot/perl@1978
my $files = $files{$branch}{$kind};
# don't show large branches and integrations
$files = ["($kind " . scalar(@$files) . ' files)']
-- if (@$files > 25
-- && ( $kind eq 'integrate' || $kind eq 'branch'));
++ if (@$files > 25 && ($kind eq 'integrate'
++ || $kind eq 'branch'))
++ || @$files > 100;
print wrap(sprintf("%12s ", $editkind{$kind}),
sprintf("%12s ", $editkind{$kind}),
"@$files\n");