From: Jérémie Galarneau <jeremie.galarneau@efficios.com>
Date: Thu, 23 Apr 2015 23:41:35 +0000 (-0400)
Subject: Tests: Don't rely on implicit scalar expression dereference
X-Git-Tag: v2.7.0-rc1~40
X-Git-Url: https://git.lttng.org./?a=commitdiff_plain;h=d9c3a893353259c76f6c8083befdf6f401450d86;p=lttng-tools.git

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 64a243fc8..53c85d4d0 100755
--- 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