X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=infra%2Fdgit-repos-server;h=d8dc8574bd2157a4a5d4b4e7e53984448ad1ebcf;hb=c023de1aef27e1ff1170ed1b4310f205c7118856;hp=65fda22d7ed76808337bf68b9385f65bd2a814a4;hpb=d3e3f2f1a34d603de6ad253846c0610d3109a7ea;p=dgit.git

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index 65fda22d..d8dc8574 100755
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -1252,6 +1252,16 @@ END
 
     runcmd qw(git checkout -q), "refs/tags/$tagval";
 
+    my $clogp = parsechangelog();
+    my $clogf = sub {
+	my ($f, $exp) = @_;
+	my $got = getfield $clogp, $f;
+	return if $got eq $exp;
+	reject "mismatch: changelog $f $got != $exp";
+    };
+    $clogf->('Version', $version);
+    $clogf->('Source',  $package);
+
     @fetch = (@dgit, qw(fetch), $suite);
     debugcmd "+",@_;
     $!=0; $?=-1;