dgit: archive-api-query: Avoid crashing due to lack of $isuite

Otherwise:

  Use of uninitialized value $isuite in concatenation (.) or string at dgit line 705.

This breaks the infrastructure.  Closes:#886592.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/debian/changelog b/debian/changelog
index 8d5618853f3ff9a522aca77a10cff2a08d0e007e..6bac07b7f7f88c183a701fadbd6af272c7df24a9 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,8 @@
 dgit (4.3~) unstable; urgency=medium
 
-  * 
+  Bugfixes:
+  * dgit archive-api-query: Avoid crashing due to lack of $isuite.
+    This breaks the infrastructure.  Closes:#886592.
 
  --
 

diff --git a/dgit b/dgit
index e86e398356fff4ce5462f23d71e894332698b008..27dcf1c91e4a9288bb1693e5dc03488f08e5fcbc 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -6456,6 +6456,7 @@ sub pre_archive_api_query () {
 sub cmd_archive_api_query {
     badusage "need only 1 subpath argument" unless @ARGV==1;
     my ($subpath) = @ARGV;
+    local $isuite = 'DGIT-API-QUERY-CMD';
     my @cmd = archive_api_query_cmd($subpath);
     push @cmd, qw(-f);
     debugcmd ">",@cmd;