diff options
| author | Audrey Tang <cpan@audreyt.org> | 2001-11-24 07:55:53 +0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-23 15:05:02 +0000 |
| commit | 18a48444ece348d4c9af91a8965806244d2dc430 (patch) | |
| tree | 7b8133c0ab60cd450396694f15c485577032185b /Porting | |
| parent | a1917ab96472a0f938aee4646d539e070dc12cd3 (diff) | |
| download | perl-18a48444ece348d4c9af91a8965806244d2dc430.tar.gz | |
Re: [PATCH] Porting/genlog -bi and range
Message-ID: <20011123235553.A2310@not.autrijus.org>
p4raw-id: //depot/perl@13199
Diffstat (limited to 'Porting')
| -rwxr-xr-x | Porting/genlog | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Porting/genlog b/Porting/genlog index 627ba316d4..0c5fec6361 100755 --- a/Porting/genlog +++ b/Porting/genlog @@ -39,8 +39,8 @@ my %branch_exclude; while (@ARGV) { $_ = shift; - if (/^(\d+)\.\.(\d+)$/) { - push @changes, $1 .. $2; + if (/^(\d+)\.\.(\d+)?$/) { + push @changes, $1 .. ($2 || (split(' ', `p4 changes -m 1`))[1]); } elsif (/^\d+$/) { push @changes, $_; @@ -105,7 +105,7 @@ else { } } } - next if not $change; + next if ((not $change) or $skip); print "_" x 76, "\n"; printf <<EOT, $change, $who, $date, $time; [%6s] By: %-25s on %9s %9s |