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

diff --git a/git-debrebase b/git-debrebase
index 22cdfa6405b4c8c884a7f017f4e143e06658fa0c..4ca30eb53e6ea3d518258fb358356dc92f5098f7 100755 (executable)
--- 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 ?";