From 87d3d81ea2cef3485a7bf883b025754dc8f9f3d3 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 25 Oct 2017 18:37:29 +0100
Subject: [PATCH] launder: debug print why rewriting if out-of-order

---
 git-debrebase | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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 ?";
-- 
2.30.2