git-debrebase: merge: Make mwrecknote call printdebug

[dgit.git] / git-debrebase

diff --git a/git-debrebase b/git-debrebase
index 37982499351e8365da2ef022c71f9abff5873b29..a6a02b113e7d3c9eb21e4a169cdee6f15e9d998e 100755 (executable)
--- a/git-debrebase
+++ b/git-debrebase
@@ -370,6 +370,8 @@ sub gbp_pq_export ($$$) {
 
 sub mwrecknote ($$$) {
     my ($wrecknotes, $reftail, $commitish) = @_;
+    confess unless defined $commitish;
+    printdebug "mwrecknote $reftail $commitish\n";
     $wrecknotes->{$reftail} = $commitish;
 }
 
@@ -454,7 +456,7 @@ sub merge_series ($$$;@) {
            printdebug "pec' $pec\n";
             runcmd @git, qw(reset -q --hard), $pec;
            $q->{MR}{PEC} = $pec;
-           $mwrecknote->("$q->{LeftRight}-patchqueue");
+           $mwrecknote->("$q->{LeftRight}-patchqueue", $pec);
        }
        # now, because of reverse, we are on $input_q->{MR}{OQC}
        runcmd @git, qw(checkout -q -b merge);
@@ -1053,6 +1055,7 @@ sub walk ($;$$$) {
 
     for (;;) {
        $cl = classify $cur;
+       $cl->{MergeWreckNotes} //= {};
        my $ty = $cl->{Type};
        my $st = $cl->{SubType};
        $prline->("$cl->{CommitId} $cl->{Type}");