Better error message for inappropriate multi-suite

[dgit.git] / dgit

diff --git a/dgit b/dgit
index bd9dd3967945f290c6f92eaed60c3dc02f0f7448..74de9af15461c53551d42c0fbabd1cb476de0002 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1010,6 +1010,8 @@ our %rmad;
 
 sub archive_query ($;@) {
     my ($method) = shift @_;
+    fail "this operation does not support multiple comma-separated suites"
+       if $isuite =~ m/,/;
     my $query = access_cfg('archive-query','RETURN-UNDEF');
     $query =~ s/^(\w+):// or badcfg "invalid archive-query method \`$query'";
     my $proto = $1;