diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-07-05 16:38:38 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-07-06 15:58:10 +0100 |
commit | ca8674c84bed3c19ea59978dca4530d85332de18 (patch) | |
tree | b5f9c6028864bfb5c6352ed950f10eeb4c95fd21 | |
parent | 693e2171e410d72b463ade941c211c338f4f8099 (diff) |
dgit-repos-server: Break out basic_tag_checks
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-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"; |