diff options
| author | Eric Wong <normalperson@yhbt.net> | 2007-04-08 07:59:22 (GMT) |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2007-04-09 02:54:07 (GMT) |
| commit | c16d08713e2d7f5c440f7649ceb68f838b4b8bea (patch) | |
| tree | 64b0991be4bb7a4a3c0aab7fe621634220ce3e09 /git-svn.perl | |
| parent | 13c823fb520eaf1cded520213cf0ae4c3268208d (diff) | |
| download | git-c16d08713e2d7f5c440f7649ceb68f838b4b8bea.zip git-c16d08713e2d7f5c440f7649ceb68f838b4b8bea.tar.gz git-c16d08713e2d7f5c440f7649ceb68f838b4b8bea.tar.bz2 | |
git-svn: fix log command to avoid infinite loop on long commit messages
This bug has been around since the the conversion to use the
Git.pm library back in October or November. Eventually I'd like
"git rev-list/log" to have the option to not truncate overly
long messages.
Signed-off-by: Eric Wong <normalperson@yhbt.net>
Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'git-svn.perl')
| -rwxr-xr-x | git-svn.perl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/git-svn.perl b/git-svn.perl index e4079fb..ac44f60 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -3263,12 +3263,19 @@ my $l_fmt; sub cmt_showable { my ($c) = @_; return 1 if defined $c->{r}; + + # big commit message got truncated by the 16k pretty buffer in rev-list if ($c->{l} && $c->{l}->[-1] eq "...\n" && $c->{a_raw} =~ /\@([a-f\d\-]+)>$/) { + @{$c->{l}} = (); my @log = command(qw/cat-file commit/, $c->{c}); - shift @log while ($log[0] ne "\n"); + + # shift off the headers + shift @log while ($log[0] ne ''); shift @log; - @{$c->{l}} = grep !/^git-svn-id: /, @log; + + # TODO: make $c->{l} not have a trailing newline in the future + @{$c->{l}} = map { "$_\n" } grep !/^git-svn-id: /, @log; (undef, $c->{r}, undef) = ::extract_metadata( (grep(/^git-svn-id: /, @log))[-1]); |