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 0a7c44df18a462c2bb636488622f6287593b0309..2c3dfa711fec4a786d28b32f1fdaa8dc36ee88fc 100644 (file)
--- 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";