diff options
Diffstat (limited to 'infra')
-rwxr-xr-x | infra/dgit-repos-server | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server index 7c7262f..61a4b17 100755 --- a/infra/dgit-repos-server +++ b/infra/dgit-repos-server @@ -847,12 +847,16 @@ sub tagh1 ($) { return $vals->[0]; } -sub checks () { +sub basic_tag_checks() { printdebug "checks\n"; tagh1('type') eq 'commit' or reject "tag refers to wrong kind of object"; tagh1('object') eq $commit or reject "tag refers to wrong commit"; tagh1('tag') eq $tagname or reject "tag name in tag is wrong"; +} + +sub checks () { + basic_tag_checks(); my @expecttagnames = debiantags($version, $distro); printdebug "expected tag @expecttagnames\n"; |