diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-07-06 19:45:04 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-07-07 11:18:17 +0100 |
commit | c023de1aef27e1ff1170ed1b4310f205c7118856 (patch) | |
tree | 66f6d03d304a2c61f5bb6383a9df7a8bef3e1542 /infra | |
parent | d3e3f2f1a34d603de6ad253846c0610d3109a7ea (diff) |
dgit-repos-server: tag2upload: Check changelog info
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'infra')
-rwxr-xr-x | infra/dgit-repos-server | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server index 65fda22..d8dc857 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; |