Commit a14562e1 authored by Mark Andrews's avatar Mark Andrews

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

                        feature of perl as it has been removed. [RT #45012]
parent 70698c6d
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
......
......@@ -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";
}
......@@ -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";
}
}
......@@ -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";
}
......@@ -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";
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment