Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ISC Open Source Projects
BIND
Commits
a14562e1
Commit
a14562e1
authored
Apr 24, 2017
by
Mark Andrews
Browse files
4606. [port] Stop using experimental "Experimental keys on scalar"
feature of perl as it has been removed. [RT #45012]
parent
70698c6d
Changes
5
Hide whitespace changes
Inline
Side-by-side
CHANGES
View file @
a14562e1
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
...
...
bin/tests/system/statschannel/server-json.pl
View file @
a14562e1
...
...
@@ -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
";
}
bin/tests/system/statschannel/server-xml.pl
View file @
a14562e1
...
...
@@ -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
";
}
}
bin/tests/system/statschannel/traffic-json.pl
View file @
a14562e1
...
...
@@ -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
";
}
bin/tests/system/statschannel/traffic-xml.pl
View file @
a14562e1
...
...
@@ -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
";
}
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment