Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
runcmd qw(git checkout -q), "refs/tags/$tagval";
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;
@fetch = (@dgit, qw(fetch), $suite);
debugcmd "+",@_;
$!=0; $?=-1;