mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-09-02 15:45:25 +00:00
Code Issues Releases Wiki Activity

4606. [port] Stop using experimental "Experimental keys on scalar"

Browse Source 
feature of perl as it has been removed. [RT #45012]
This commit is contained in:
Mark Andrews
2017-04-24 11:17:18 +10:00
parent 70698c6d17
commit a14562e120
5 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
CHANGES
View File

@@ -1,3 +1,6 @@
4606. [port] Stop using experimental "Experimental keys on scalar"
feature of perl as it has been removed. [RT #45012]
4605. [performance] Improve performance for delegation heavy answers 4605. [performance] Improve performance for delegation heavy answers
and also general query performance. Removes the and also general query performance. Removes the
acache feature that didn't significantly improve acache feature that didn't significantly improve

8
bin/tests/system/statschannel/server-json.pl
View File

@@ -16,15 +16,15 @@ my $text = do{local$/;<INPUT>};
close(INPUT); close(INPUT);
my $ref = decode_json($text); my $ref = decode_json($text);
foreach $key (keys $ref->{opcodes}) { foreach $key (keys %{$ref->{opcodes}}) {
print "opcode " . $key . ": " . $ref->{opcodes}->{$key} . "\n"; print "opcode " . $key . ": " . $ref->{opcodes}->{$key} . "\n";
} }
foreach $key (keys $ref->{rcodes}) { foreach $key (keys %{$ref->{rcodes}}) {
print "rcode " . $key . ": " . $ref->{rcodes}->{$key} . "\n"; print "rcode " . $key . ": " . $ref->{rcodes}->{$key} . "\n";
} }
foreach $key (keys $ref->{qtypes}) { foreach $key (keys %{$ref->{qtypes}}) {
print "qtype " . $key . ": " . $ref->{qtypes}->{$key} . "\n"; print "qtype " . $key . ": " . $ref->{qtypes}->{$key} . "\n";
} }
foreach $key (keys $ref->{nsstats}) { foreach $key (keys %{$ref->{nsstats}}) {
print "nsstat " . $key . ": " . $ref->{nsstats}->{$key} . "\n"; print "nsstat " . $key . ": " . $ref->{nsstats}->{$key} . "\n";
} }

2
bin/tests/system/statschannel/server-xml.pl
View File

@@ -14,7 +14,7 @@ use XML::Simple;
my $ref = XMLin("xml.stats"); my $ref = XMLin("xml.stats");
my $counters = $ref->{server}->{counters}; my $counters = $ref->{server}->{counters};
foreach $group (@$counters) { foreach $group (@$counters) {
foreach $key (keys $group->{counter}) { foreach $key (keys %{$group->{counter}}) {
print $group->{type} . " " . $key . ": ". $group->{counter}->{$key}->{content} . "\n"; print $group->{type} . " " . $key . ": ". $group->{counter}->{$key}->{content} . "\n";
} }
} }

8
bin/tests/system/statschannel/traffic-json.pl
View File

@@ -21,24 +21,24 @@ my $ref = decode_json($text);
my $tcprcvd = $ref->{traffic}->{"dns-tcp-requests-sizes-received-ipv4"}; my $tcprcvd = $ref->{traffic}->{"dns-tcp-requests-sizes-received-ipv4"};
my $type = "tcp request-size "; my $type = "tcp request-size ";
foreach $key (keys $tcprcvd) { foreach $key (keys %{$tcprcvd}) {
print $type . $key . ": ". $tcprcvd->{$key} ."\n"; print $type . $key . ": ". $tcprcvd->{$key} ."\n";
} }
my $tcpsent = $ref->{traffic}->{"dns-tcp-responses-sizes-sent-ipv4"}; my $tcpsent = $ref->{traffic}->{"dns-tcp-responses-sizes-sent-ipv4"};
my $type = "tcp response-size "; my $type = "tcp response-size ";
foreach $key (keys $tcpsent) { foreach $key (keys %{$tcpsent}) {
print $type . $key . ": ". $tcpsent->{$key} ."\n"; print $type . $key . ": ". $tcpsent->{$key} ."\n";
} }
my $udprcvd = $ref->{traffic}->{"dns-udp-requests-sizes-received-ipv4"}; my $udprcvd = $ref->{traffic}->{"dns-udp-requests-sizes-received-ipv4"};
my $type = "udp request-size "; my $type = "udp request-size ";
foreach $key (keys $udprcvd) { foreach $key (keys %{$udprcvd}) {
print $type . $key . ": ". $udprcvd->{$key} ."\n"; print $type . $key . ": ". $udprcvd->{$key} ."\n";
} }
my $udpsent = $ref->{traffic}->{"dns-udp-responses-sizes-sent-ipv4"}; my $udpsent = $ref->{traffic}->{"dns-udp-responses-sizes-sent-ipv4"};
my $type = "udp response-size "; my $type = "udp response-size ";
foreach $key (keys $udpsent) { foreach $key (keys %{$udpsent}) {
print $type . $key . ": ". $udpsent->{$key} ."\n"; print $type . $key . ": ". $udpsent->{$key} ."\n";
} }

4
bin/tests/system/statschannel/traffic-xml.pl
View File

@@ -22,7 +22,7 @@ foreach $group (@$udp) {
if (exists $group->{counter}->{name}) { if (exists $group->{counter}->{name}) {
print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n"; print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n";
} else { } else {
foreach $key (keys $group->{counter}) { foreach $key (keys %{$group->{counter}}) {
print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n"; print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n";
} }
} }
@@ -34,7 +34,7 @@ foreach $group (@$tcp) {
if (exists $group->{counter}->{name}) { if (exists $group->{counter}->{name}) {
print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n"; print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n";
} else { } else {
foreach $key (keys $group->{counter}) { foreach $key (keys %{$group->{counter}}) {
print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n"; print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n";
} }
} }