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

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

Browse Source 
feature of perl as it has been removed. [RT #45012]

(cherry picked from commit a14562e120)
This commit is contained in:
Mark Andrews
2017-04-24 11:17:18 +10:00
parent 9b9b0d5962
commit 9689922a0d
5 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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