From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 9 Feb 2017 00:16:47 +0000 (+0000)
Subject: capture breakwater tip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=e2b5192e353fb5ee346a36e33cf9e4985e871dbb;p=dgit.git

capture breakwater tip
---

diff --git a/git-debrebase b/git-debrebase
index 9d013f32..02086f68 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -343,6 +343,7 @@ sub launder ($$$) {
 	mkdir $rd or $!==EEXIST or die $!;
 	my $current_method;
 	foreach my $cl (qw(Debian), (reverse @deb_cl),
+			{ SpecialMethod => 'RecordBreakwaterTip' },
 			qw(Upstream), (reverse @ups_cl)) {
 	    if (!ref $cl) {
 		$current_method = $cl;
@@ -358,6 +359,10 @@ sub launder ($$$) {
 	    } elsif ($method eq 'StartRewrite') {
 		$rewriting = 1;
 		next;
+	    } elsif ($method eq 'RecordBreakwaterTip') {
+		last if $wantdebonly;
+		$breakwater = $build;
+		next;
 	    } elsif ($method eq 'DgitImportDebianUpdate') {
 		$read_tree_debian->($cltree);
 		$rm_tree_cached(qw(debian/patches));
@@ -396,7 +401,7 @@ sub launder ($$$) {
 	map { $wantdebonly ? "$_:debian" : $_ },
 	$input, $build;
 
-    return $build;
+    return ($build, $breakwater);
 }
 
 sub get_head () { return git_rev_parse qw(HEAD); }
@@ -408,8 +413,9 @@ sub update_head ($$) {
 
 sub cmd_launder () {
     my $old = get_head();
-    my $got = launder $old, 0, undef, 0;
-    update_head $old, $new, 'launder'; # no tree changes!
+    my ($tip,$breakwater) = launder $old, 0, undef, 0;
+    update_head $old, $tip, 'launder'; # no tree changes!
+    printf "# breakwater tip:\n%s\n", $breakwater;
 }
 
 my $toplevel = runcmd @git, qw(rev-parse --show-toplevel);