From 98ea159ff7f61284b562ff73e4b89310b47dc66f Mon Sep 17 00:00:00 2001
From: "Peter J. Holzer" <hjp@hjp.at>
Date: Thu, 14 Dec 2017 03:28:46 +0100
Subject: [PATCH] Use postderef instead of autoderef

---
 tsplotv | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)) {