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

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

diff --git a/CHANGES b/CHANGES
index 5180259f3b80baaf9e82d56e8d71023a9bb60ecb..ee71cdaee5001a7df00e00aeac6c0d6a0e2f8f07 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -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

diff --git a/bin/tests/system/statschannel/server-json.pl b/bin/tests/system/statschannel/server-json.pl
index 95727d70717af56cf6af0ee93521b4097c62050f..abfdd9a230bfbda2938d9aea9bcd42b5bf7c70e8 100644 (file)
--- a/bin/tests/system/statschannel/server-json.pl
+++ b/bin/tests/system/statschannel/server-json.pl
@@ -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";
 }

diff --git a/bin/tests/system/statschannel/server-xml.pl b/bin/tests/system/statschannel/server-xml.pl
index 1e4f72a5cc1f5e2c57b4ea7853e63a3670dfc7a8..c73e47cf2de8e5baf7331a24b00f9aa8a1e80fef 100644 (file)
--- a/bin/tests/system/statschannel/server-xml.pl
+++ b/bin/tests/system/statschannel/server-xml.pl
@@ -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";
     }
 }

diff --git a/bin/tests/system/statschannel/traffic-json.pl b/bin/tests/system/statschannel/traffic-json.pl
index 81ae6f4e317d79ffa366ac41ef542184f8d8e5f2..c64c7b48d52799a44ba35192346abe693b5ab994 100644 (file)
--- a/bin/tests/system/statschannel/traffic-json.pl
+++ b/bin/tests/system/statschannel/traffic-json.pl
@@ -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";
 }

diff --git a/bin/tests/system/statschannel/traffic-xml.pl b/bin/tests/system/statschannel/traffic-xml.pl
index cd1714fce3c890878a8d02bb9be778ded7396899..d8288e1913c3c98ee15c0637d8969cf07aee8fbd 100644 (file)
--- a/bin/tests/system/statschannel/traffic-xml.pl
+++ b/bin/tests/system/statschannel/traffic-xml.pl
@@ -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";
         }
     }