diff --git a/tsplotv b/tsplotv index 6f28d1a..a2183cc 100755 --- a/tsplotv +++ b/tsplotv @@ -77,7 +77,7 @@ my $ns = 0; my %data; $config->{timeseries} //= {}; -for (keys $config->{timeseries}) { +for (keys $config->{timeseries}->%*) { $ns = $config->{timeseries}{$_}{order} if ($config->{timeseries}{$_}{order} // 0) > $ns; } @@ -88,7 +88,7 @@ while (<>) { $data{$timestamp}{$series} = $value; } my @series = sort { $config->{timeseries}{$a}{order} <=> $config->{timeseries}{$b}{order} } - keys $config->{timeseries}; + keys $config->{timeseries}->%*; if ($colors) { my @colors = split(/,/, $colors); while (my ($i, $c) = each(@colors)) {