Commit to debian by don@debian.org -- merge changes from don source

[Debbugs Maintainers]

------------------------------------------------------------
revno: 942
committer: Debian BTS <debb...@rietz>
branch nick: debian
timestamp: Sat 2010-01-02 23:38:05 +0000
message:
  merge changes from don source
    ------------------------------------------------------------
    revno: 721.14.197
    committer: Don Armstrong <d...@donarmstrong.com>
    branch nick: source
    timestamp: Sat 2010-01-02 15:37:03 -0800
    message:
       * properly interpolate array'd fields when a limit fails (closes: 
#563413)

=== modified file 'Debbugs/Control.pm'
--- Debbugs/Control.pm  2009-11-25 20:30:31 +0000
+++ Debbugs/Control.pm  2010-01-02 23:38:03 +0000
@@ -2829,7 +2829,8 @@
            }
            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";
            }
        }