From c023de1aef27e1ff1170ed1b4310f205c7118856 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 6 Jul 2019 19:45:04 +0100 Subject: [PATCH] dgit-repos-server: tag2upload: Check changelog info Signed-off-by: Ian Jackson --- infra/dgit-repos-server | 10 ++++++++++ 1 file changed, 10 insertions(+) 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; -- 2.30.2