git-debrebase: convert-to-gbp: Actually start from breakwater

[dgit.git] / git-debrebase

diff --git a/git-debrebase b/git-debrebase
index 74e50768deaac7d7d43b487254a6aade0dcc1a5e..353b405ffa9cbec39ebefd2d001614da02426bf1 100755 (executable)
--- a/git-debrebase
+++ b/git-debrebase
@@ -2633,11 +2633,11 @@ sub cmd_convert_to_gbp () {
     badusage "no arguments allowed" if @ARGV;
     my $head = get_head();
     my (undef, undef, undef, $ffq, $gdrlast) = ffq_prev_branchinfo();
-    keycommits $head, 0;
-    my $out;
+    my ($anchor, $breakwater) = keycommits $head, 0;
+    my $out = $breakwater;
     make_patches_staged $head;
     in_workarea sub {
-       $out = make_commit ['HEAD'], [
+       $out = make_commit [$out], [
             'Commit patch queue (converted from git-debrebase format)',
             '[git-debrebase convert-to-gbp: commit patches]',
         ];