From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 2 Jan 2010 23:37:03 +0000 (-0800)
Subject:  * properly interpolate array'd fields when a limit fails (closes: #563413)
X-Git-Tag: release/2.6.0~431^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=217f5356951cdccc79f26b11dc9aa0cdce4d080f;p=debbugs.git

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

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index f79c5837..5a2a849c 100644
--- 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";
 	    }
 	}