ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

add quotes arount $send_response

Browse Source
This commit is contained in:
Mark Andrews
2017-09-06 19:26:10 +10:00
parent eeb29e6ef9
commit 023ab19634
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/tests/system/serve-stale/ans2/ans.pl
View File

@@ -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";