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 <[email protected]>
lttng · Apr 23, 2015 · d9c3a89 · d9c3a89
1 parent 94ffb05
commit d9c3a89
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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