diff options
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; |