X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=git-debrebase;h=0e365cd600c9b0224330d9a586b0605c8a39ae94;hp=7f96749626f94cd7e0848eb9b75aa8613a3c3b9c;hb=3265f60dd2ee4fe23005f62d289f7714f329d043;hpb=60d8dcb7dc0e8e8463fe1a7728dd4114b3d3e52e

diff --git a/git-debrebase b/git-debrebase
index 7f967496..0e365cd6 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -128,8 +128,10 @@ sub in_workarea ($) {
     die $@ if $@;
 }
 
-sub fresh_workarea () {
-    $workarea = fresh_playground "$playprefix/work";
+sub fresh_workarea (;$) {
+    my ($subdir) = @_;
+    $subdir //= 'work';
+    $workarea = fresh_playground "$playprefix/$subdir";
     in_workarea sub { playtree_setup };
 }
 
@@ -389,6 +391,9 @@ sub merge_failed ($$;@) {
 
     my @updates;
     merge_wreckage_cleaning \@updates;
+    run_ref_updates_now "merge failed", \@updates;
+
+    @updates = ();
     keys %$wrecknotes;
     while (my ($k,$v) = each %$wrecknotes) {
 	push @updates, "create $wrecknoteprefix/$k $v";
@@ -412,6 +417,17 @@ sub mwrecknote ($$$) {
     $wrecknotes->{$reftail} = $commitish;
 }
 
+sub merge_attempt_cmd {
+    my $wrecknotes = shift @_;
+    debugcmd '+', @_;
+    $!=0; $?=-1;
+    if (system @_) {
+	merge_failed $wrecknotes,
+	    failedcmd_waitstatus(),
+	    "failed command: @_";
+    }
+}
+
 sub merge_series ($$$;@) {
     my ($newbase, $wrecknotes, $base_q, @input_qs) = @_;
     # $base_q{SeriesBase}  $input_qs[]{SeriesBase}
@@ -440,17 +456,10 @@ sub merge_series ($$$;@) {
 
     my $mwrecknote = sub { &mwrecknote($wrecknotes, @_); };
 
-    my $attempt_cmd = sub {
-	debugcmd '+', @_;
-	$!=0; $?=-1;
-	if (system @_) {
-	    merge_failed $wrecknotes,
-		failedcmd_waitstatus(),
-		"failed command: @_";
-	}
-    };
+    my $attempt_cmd = sub { &merge_attempt_cmd($wrecknotes, @_); };
 
-    local $workarea = fresh_playground "$playprefix/merge";
+    local $workarea;
+    fresh_workarea "merge";
     my $seriesfile = "debian/patches/series";
     in_workarea sub {
 	playtree_setup();
@@ -587,7 +596,7 @@ sub merge_series ($$$;@) {
 
 	printdebug "merge_series series gbp pq import\n";
 
-	$attempt_cmd->(qw(gbp pq import));
+	merge_attempt_cmd($wrecknotes, qw(gbp pq import));
 
 	# OK now we are on patch-queue/merge, and we need to rebase
 	# onto the intended parent and drop the patches from each one
@@ -608,7 +617,7 @@ sub merge_series ($$$;@) {
 	    $build = cmdoutput @git, qw(hash-object -w -t commit ../mcommit);
 	}
 	$result = $build;
-	$mwrecknote->('merged-result', $result);
+	mwrecknote($wrecknotes, 'merged-result', $result);
 
 	runcmd @git, qw(update-ref refs/heads/result), $result;
 
@@ -618,7 +627,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);
+	mwrecknote($wrecknotes, 'merged-debug', $mdebug);
     };
     printdebug "merge_series returns $result\n";
     return $result;