From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 17 May 2015 00:11:39 +0000 (+0100)
Subject: Infra: in dgit-repos-policy-debian, pass dgit api-query query specs with no leading /
X-Git-Tag: debian/0.30~157
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=32ee4d9bb4cd7c1ef8d0e30bbd506fec33359b45

Infra: in dgit-repos-policy-debian, pass dgit api-query query specs with no leading /
---

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 8a105366..cf0ac2e8 100755
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -98,7 +98,7 @@ sub apiquery ($) {
 
 sub specific_suite_has_vsn_in_our_history ($) {
     my ($suite) = @_;
-    my $in_suite = apiquery "/dsc_in_suite/$suite/$pkg";
+    my $in_suite = apiquery "dsc_in_suite/$suite/$pkg";
     foreach my $entry (@$in_suite) {
 	my $vsn = $entry->{version};
 	die "$pkg ?" unless defined $vsn;
@@ -116,7 +116,7 @@ sub new_has_vsn_in_our_history () {
 }
 
 sub good_suite_has_vsn_in_our_history () {
-    my $suites = apiquery "/suites";
+    my $suites = apiquery "suites";
     foreach my $suitei (@$suites) {
 	my $suite = $suitei->{name};
 	die unless defined $suite;