Tests: Don't rely on implicit scalar expression dereference
authorJérémie Galarneau <jeremie.galarneau@efficios.com>
Thu, 23 Apr 2015 23:41:35 +0000 (19:41 -0400)
committerJérémie Galarneau <jeremie.galarneau@efficios.com>
Thu, 23 Apr 2015 23:41:35 +0000 (19:41 -0400)
This silences an "experimental feature" warning when using Perl 5.20.2.

Signed-off-by: Jérémie Galarneau <jeremie.galarneau@efficios.com>
tests/utils/babelstats.pl

index 64a243fc8a69f8b1428d8bf7c5a2231cc8756afd..53c85d4d0fd6974202adf6a8b0a8db4fafaf51fc 100755 (executable)
@@ -118,7 +118,7 @@ sub print_fields_stats
 
        foreach my $field (keys %{$merged_ref->{$tracepoint}}) {
                my @sorted;
-               my @val = keys ($merged_ref->{$tracepoint}->{$field});
+               my @val = keys %{$merged_ref->{$tracepoint}->{$field}};
 
                if ($val[0] =~ /^\d+$/) {
                        # Sort numerically
This page took 0.031955 seconds and 4 git commands to generate.