mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-30 22:15:20 +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
and also general query performance. Removes the
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);
my $ref = decode_json($text);
foreach $key (keys $ref->{opcodes}) {
foreach $key (keys %{$ref->{opcodes}}) {
print "opcode " . $key . ": " . $ref->{opcodes}->{$key} . "\n";
}
foreach $key (keys $ref->{rcodes}) {
foreach $key (keys %{$ref->{rcodes}}) {
print "rcode " . $key . ": " . $ref->{rcodes}->{$key} . "\n";
}
foreach $key (keys $ref->{qtypes}) {
foreach $key (keys %{$ref->{qtypes}}) {
print "qtype " . $key . ": " . $ref->{qtypes}->{$key} . "\n";
}
foreach $key (keys $ref->{nsstats}) {
foreach $key (keys %{$ref->{nsstats}}) {
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 $counters = $ref->{server}->{counters};
foreach $group (@$counters) {
foreach $key (keys $group->{counter}) {
foreach $key (keys %{$group->{counter}}) {
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 $type = "tcp request-size ";
foreach $key (keys $tcprcvd) {
foreach $key (keys %{$tcprcvd}) {
print $type . $key . ": ". $tcprcvd->{$key} ."\n";
}
my $tcpsent = $ref->{traffic}->{"dns-tcp-responses-sizes-sent-ipv4"};
my $type = "tcp response-size ";
foreach $key (keys $tcpsent) {
foreach $key (keys %{$tcpsent}) {
print $type . $key . ": ". $tcpsent->{$key} ."\n";
}
my $udprcvd = $ref->{traffic}->{"dns-udp-requests-sizes-received-ipv4"};
my $type = "udp request-size ";
foreach $key (keys $udprcvd) {
foreach $key (keys %{$udprcvd}) {
print $type . $key . ": ". $udprcvd->{$key} ."\n";
}
my $udpsent = $ref->{traffic}->{"dns-udp-responses-sizes-sent-ipv4"};
my $type = "udp response-size ";
foreach $key (keys $udpsent) {
foreach $key (keys %{$udpsent}) {
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}) {
print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n";
} else {
foreach $key (keys $group->{counter}) {
foreach $key (keys %{$group->{counter}}) {
print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n";
}
}
@@ -34,7 +34,7 @@ foreach $group (@$tcp) {
if (exists $group->{counter}->{name}) {
print $type . $group->{counter}->{name} . ": " . $group->{counter}->{content} . "\n";
} else {
foreach $key (keys $group->{counter}) {
foreach $key (keys %{$group->{counter}}) {
print $type . $key . ": ". $group->{counter}->{$key}->{content} ."\n";
}
}