Tests: Don't rely on implicit scalar expression dereference

This silences an "experimental feature" warning when using Perl 5.20.2.

Signed-off-by: Jérémie Galarneau <jeremie.galarneau@efficios.com>

diff --git a/tests/utils/babelstats.pl b/tests/utils/babelstats.pl
index 64a243fc8a69f8b1428d8bf7c5a2231cc8756afd..53c85d4d0fd6974202adf6a8b0a8db4fafaf51fc 100755 (executable)
--- a/tests/utils/babelstats.pl
+++ b/tests/utils/babelstats.pl
@@ -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