From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 19 Jan 2010 06:03:17 +0000 (-0800)
Subject: make the limit transcript quote things to track down some bugs
X-Git-Tag: release/2.6.0~428^2~13
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=ada639028e8b2cf196454d2d944261e981f65caa

make the limit transcript quote things to track down some bugs
---

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