From ada639028e8b2cf196454d2d944261e981f65caa Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 18 Jan 2010 22:03:17 -0800
Subject: [PATCH] make the limit transcript quote things to track down some
 bugs

---
 Debbugs/Control.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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";
 	    }
 	}
     }
-- 
2.39.2