summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
3eed558)
This silences an "experimental feature" warning when using Perl 5.20.2.
Signed-off-by: Jérémie Galarneau <jeremie.galarneau@efficios.com>
foreach my $field (keys %{$merged_ref->{$tracepoint}}) {
my @sorted;
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
if ($val[0] =~ /^\d+$/) {
# Sort numerically