From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 25 Oct 2017 17:37:29 +0000 (+0100)
Subject: git-debrebase: launder: debug print why rewriting if out-of-order
X-Git-Tag: archive/debian/5.0~308
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=cbdd01d05713f2faaab329505e878cb22500bbdd;p=dgit.git

git-debrebase: launder: debug print why rewriting if out-of-order
---

diff --git a/git-debrebase b/git-debrebase
index 22cdfa64..4ca30eb5 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 ?";