diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2014-03-06 00:46:48 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2014-03-06 00:46:48 +0000 |
commit | 4455e483399bb622093aac0ff1cbb93795669859 (patch) | |
tree | cdc2cf20ca601637d8cfe72707e25a30557096ba /dgit-repos-server | |
parent | 8a8f3f8c39b086d8d0987f979ca0120efc373c12 (diff) |
dgit-repos-server: some better error msgs, more tests
Diffstat (limited to 'dgit-repos-server')
-rwxr-xr-x | dgit-repos-server | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dgit-repos-server b/dgit-repos-server index add5424..49fa795 100755 --- a/dgit-repos-server +++ b/dgit-repos-server @@ -464,9 +464,9 @@ sub tagh1 ($) { sub checks () { debug "checks"; checksuite(); - tagh1('type') eq 'commit' or die; - tagh1('object') eq $commit or die; - tagh1('tag') eq $tagname or die; + 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"; my $v = $version; $v =~ y/~:/_%/; |