X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=dgit;h=0d7c62d7589a8aa3b1b7bad19d5eef4554792d45;hb=d3e3f2f1a34d603de6ad253846c0610d3109a7ea;hp=1fa1f529561f3e45d871eb4bf3116e6ef2842a9a;hpb=4fa125c3dc9f093864d5e327eb339c431a93a5f2;p=dgit.git

diff --git a/dgit b/dgit
index 1fa1f529..0d7c62d7 100755
--- a/dgit
+++ b/dgit
@@ -4363,7 +4363,6 @@ sub push_mktags ($$ $$ $) {
     # We make the git tag by hand because (a) that makes it easier
     # to control the "tagger" (b) we can do remote signing
     my $authline = clogp_authline $clogp;
-    my @dtxinfo = @deliberatelies;
 
     my $mktag = sub {
 	my ($tw) = @_;
@@ -4379,27 +4378,33 @@ tag $tag
 tagger $authline
 
 END
-	if ($tw->{View} eq 'dgit') {
-	    print TO f_ <<ENDT, $package, $cversion, $clogsuite, $csuite
-%s release %s for %s (%s) [dgit]
-ENDT
-		or confess "$!";
-	    unshift @dtxinfo, "--quilt=$quilt_mode" if madformat($format);
-	    unshift @dtxinfo, do_split_brain() ? "split" : "no-split"
-		# rpush protocol 5 and earlier don't tell us
-		unless $we_are_initiator && $protovsn < 6;
-	    my $dtxinfo = join(" ", "",@dtxinfo);
-	    print TO <<END or confess "$!";
+
+	my @dtxinfo = @deliberatelies;
+	unshift @dtxinfo, "--quilt=$quilt_mode" if madformat($format);
+	unshift @dtxinfo, do_split_brain() ? "split" : "no-split"
+	    # rpush protocol 5 and earlier don't tell us
+	    unless $we_are_initiator && $protovsn < 6;
+	my $dtxinfo = join(" ", "",@dtxinfo);
+	my $tag_metadata = <<END;
 [dgit distro=$declaredistro$dtxinfo]
 END
-	    foreach my $ref (sort keys %previously) {
-		print TO <<END or confess "$!";
+	foreach my $ref (sort keys %previously) {
+	    $tag_metadata .= <<END or confess "$!";
 [dgit previously:$ref=$previously{$ref}]
 END
-	    }
+	}
+
+	if ($tw->{View} eq 'dgit') {
+	    print TO sprintf <<ENDT, $package, $cversion, $clogsuite, $csuite
+%s release %s for %s (%s) [dgit]
+ENDT
+		or confess "$!";
 	} elsif ($tw->{View} eq 'maint') {
-	    print TO f_ <<END, $package, $cversion, $clogsuite, $csuite,
+	    print TO sprintf <<END, $package, $cversion, $clogsuite, $csuite;
 %s release %s for %s (%s)
+
+END
+	    print TO f_ <<END,
 (maintainer view tag generated by dgit --quilt=%s)
 END
 		$quilt_mode
@@ -4407,6 +4412,7 @@ END
 	} else {
 	    confess Dumper($tw)."?";
 	}
+	print TO "\n", $tag_metadata;
 
 	close TO or confess "$!";