X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=git-debrebase;h=f332cfd48a7a74bf62125b94566cebac4a134245;hb=c7edc2e1f2bd904b49303de8e7800b973be5492c;hp=25ebbe6f0ad84448ca44a1b78167f0c0c0ac535a;hpb=186b386b3adc95b515109a430cad3d82b4d637dd;p=dgit.git

diff --git a/git-debrebase b/git-debrebase
index 25ebbe6f..f332cfd4 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -417,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}
@@ -445,15 +456,7 @@ 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_workarea "merge";