make the limit transcript quote things to track down some bugs

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