diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-10-25 18:37:29 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-16 12:25:49 +0100 |
commit | cbdd01d05713f2faaab329505e878cb22500bbdd (patch) | |
tree | b5a65b0dd0dc378c6cb1912337c57709357dd7ec /git-debrebase | |
parent | 31ca5cbc38b975621d01dd5c5fd5cf6b8f539ee4 (diff) |
git-debrebase: launder: debug print why rewriting if out-of-order
Diffstat (limited to 'git-debrebase')
-rwxr-xr-x | git-debrebase | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/git-debrebase b/git-debrebase index 22cdfa6..4ca30eb 100755 --- a/git-debrebase +++ b/git-debrebase @@ -667,7 +667,13 @@ sub walk ($;$$) { } else { confess "$method ?"; } - $rewriting ||= $cl ne pop @processed; + if (!$rewriting) { + my $procd = (pop @processed) // 'UNDEF'; + if ($cl ne $procd) { + $rewriting = 1; + printdebug "WALK REWRITING NOW cl=$cl procd=$procd\n"; + } + } my $newtree = cmdoutput @git, qw(write-tree); my $ch = $cl->{Hdr}; $ch =~ s{^tree .*}{tree $newtree}m or confess "$ch ?"; |