From 023ab19634b287543169e9b7b5259f3126cd60ff Mon Sep 17 00:00:00 2001
From: Mark Andrews <marka@isc.org>
Date: Wed, 6 Sep 2017 19:26:10 +1000
Subject: [PATCH] add quotes arount $send_response

---
 bin/tests/system/serve-stale/ans2/ans.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/tests/system/serve-stale/ans2/ans.pl b/bin/tests/system/serve-stale/ans2/ans.pl
index 0a7c44df18..2c3dfa711f 100644
--- a/bin/tests/system/serve-stale/ans2/ans.pl
+++ b/bin/tests/system/serve-stale/ans2/ans.pl
@@ -52,7 +52,7 @@ sub reply_handler {
     if ($qname eq "enable" ) {
 	if ($qtype eq "TXT") {
 	    $send_response = 1;
-            my $rr = new Net::DNS::RR("$qname 0 $qclass TXT $send_response");
+            my $rr = new Net::DNS::RR("$qname 0 $qclass TXT \"$send_response\"");
             push @ans, $rr;
 	}
 	$rcode = "NOERROR";
@@ -60,7 +60,7 @@ sub reply_handler {
     } elsif ($qname eq "disable" ) {
 	if ($qtype eq "TXT") {
 	    $send_response = 0;
-            my $rr = new Net::DNS::RR("$qname 0 $qclass TXT $send_response");
+            my $rr = new Net::DNS::RR("$qname 0 $qclass TXT \"$send_response\"");
             push @ans, $rr;
 	}
 	$rcode = "NOERROR";