* properly interpolate array'd fields when a limit fails (closes: #563413)

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index f79c58372efc10cbd62dd6d592b37dddfee67de1..5a2a849c50e3497521a202fd9e9e364fd4ebe669 100644 (file)
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -2829,7 +2829,8 @@ LIMIT:        for my $limit (make_list($param{limit}{$field})) {
            }
            if (not $match) {
                $going_to_fail = 1;
-               print {$transcript} "$field: '$data->{$field}' does not match at least one of ".
+               print {$transcript} "$field: '".join(', ',make_list($data->{$field})).
+                   "' does not match at least one of ".
                    join(', ',map {ref($_)?'(regex)':$_} make_list($param{limit}{$field}))."\n";
            }
        }