diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-17 13:17:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-17 13:17:19 +0000 |
| commit | b56ec34489067f612a4e5d2fecae86c5bbfffd5c (patch) | |
| tree | 4cd76f13513d1a6d80609521251f6d9197a31389 /Porting | |
| parent | 94be4d36b6a9723699dc23390a82363603e14049 (diff) | |
| download | perl-b56ec34489067f612a4e5d2fecae86c5bbfffd5c.tar.gz | |
Integrate mainperl.
p4raw-id: //depot/cfgperl@2005
Diffstat (limited to 'Porting')
| -rwxr-xr-x | Porting/genlog | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Porting/genlog b/Porting/genlog index 5c3e90577e..b8bd1d6b2f 100755 --- a/Porting/genlog +++ b/Porting/genlog @@ -107,8 +107,9 @@ EOT 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"); |