X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=git-debrebase;h=7c69c4c0b2b970eeeee8eb09edae9488dbc3a6bc;hp=62381e1de83c8fc1440e578593f0bf8422cdb632;hb=8c4cbc9eafaff67f8029512a0b5e710fb5278390;hpb=70d994b7bf1d4eed7d42abd3914da0ac1b42f310

diff --git a/git-debrebase b/git-debrebase
index 62381e1d..7c69c4c0 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -344,7 +344,7 @@ sub gbp_pq_export ($$$) {
 	{ local ($!,$?); copy('../gbp-pq-err', \*STDERR); }
 	failedcmd @gbp_cmd;
     }
-    runcmd @git, qw(add -f debian/patches);
+    runcmd @git, qw(add -f debian/patches) if stat_exists 'debian/patches';
 }
 
 
@@ -388,6 +388,11 @@ sub merge_series ($$$;@) {
 
     my $result;
 
+    my $mwrecknote = sub {
+	my ($reftail, $commitish) = @_;
+	$wrecknotes->{$reftail} = $commitish;
+    };
+
     local $workarea = fresh_playground "$playprefix/merge";
     my $seriesfile = "debian/patches/series";
     in_workarea sub {
@@ -441,6 +446,7 @@ sub merge_series ($$$;@) {
 	    printdebug "pec' $pec\n";
             runcmd @git, qw(reset -q --hard), $pec;
 	    $q->{MR}{PEC} = $pec;
+	    $mwrecknote->("$q->{LeftRight}-patchqueue");
 	}
 	# now, because of reverse, we are on $input_q->{MR}{OQC}
 	runcmd @git, qw(checkout -q -b merge);
@@ -522,7 +528,8 @@ sub merge_series ($$$;@) {
 	}
 
 	runcmd @git, qw(add), $seriesfile;
-	runcmd @git, qw(commit --quiet -m), 'Merged series';
+	runcmd @git, qw(commit --quiet -m), 'Merged patch queue form';
+	$mwrecknote->('merged-patchqueue', git_rev_parse 'HEAD');
 
 	printdebug "merge_series series gbp pq import\n";
 	runcmd qw(gbp pq import);
@@ -546,6 +553,8 @@ sub merge_series ($$$;@) {
 	    $build = cmdoutput @git, qw(hash-object -w -t commit ../mcommit);
 	}
 	$result = $build;
+	$mwrecknote->('merged-result', $result);
+
 	runcmd @git, qw(update-ref refs/heads/result), $result;
 
 	runcmd @git, qw(checkout -q -b debug);
@@ -554,6 +563,7 @@ sub merge_series ($$$;@) {
 	runcmd @git, qw(commit --allow-empty -q -m M-WORKTREE);
 	my $mdebug = git_rev_parse 'HEAD';
 	printdebug sprintf "merge_series done debug=%s\n", $mdebug;
+	$mwrecknote->('merged-debug', $mdebug);
     };
     printdebug "merge_series returns $result\n";
     return $result;
@@ -1291,7 +1301,9 @@ sub walk ($;$$$) {
 
 	    my $ibinfo = { SeriesTip => $btip,
 			   SeriesBase => $bbw,
-			   Anchor => $banchor };
+			   Anchor => $banchor,
+			   LeftRight => 'mergebase' };
+
 	    $bbw eq $bwb
 		or $nomerge->("interchange merge-base ($ib)'s".
 			      " breakwater ($bbw)".