-sub specific_suite_has_vsn_in_our_history ($) {
- my ($suite) = @_;
- my $in_suite = apiquery "/dsc_in_suite/$suite/$pkg";
+sub vsn_in_our_history ($) {
+ my ($vsn) = @_;
+
+ my $tagref = "refs/tags/".debiantag $vsn, $distro;
+ printdebug " checking history vsn=$vsn tagref=$tagref\n";
+ $?=0; my $r = system qw(git show-ref --verify --quiet), $tagref;
+ return 1 if !$r;
+ return 0 if $r==256;
+ die "$pkg tagref $tagref $? $!";
+}
+
+sub specific_suite_has_suitable_vsn ($$) {
+ my ($suite, $vsn_check) = @_; # tests $vsn_check->($version)
+ my $in_suite = apiquery "dsc_in_suite/$suite/$pkg";