From: Mark Andrews <marka@isc.org>
Date: Wed, 6 Sep 2017 09:26:10 +0000 (+1000)
Subject: add quotes arount $send_response
X-Git-Tag: v9.12.0a1~46
X-Git-Url: http://git.ipfire.org/gitweb/?a=commitdiff_plain;h=023ab19634b287543169e9b7b5259f3126cd60ff;p=thirdparty%2Fbind9.git

add quotes arount $send_response
---

diff --git a/bin/tests/system/serve-stale/ans2/ans.pl b/bin/tests/system/serve-stale/ans2/ans.pl
index 0a7c44df18a..2c3dfa711fe 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";