diff options
| author | dakkar <dakkar@thenautilus.net> | 2020-03-21 17:26:13 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2020-03-21 17:26:13 +0000 |
| commit | d2866034f35b15db2bb5c8520c8b632fb5b4c2d0 (patch) | |
| tree | 48da3d7236b3b13d092291fea5e9a635f340588a /lib/WebService/ForecastIo/DataBlock.pm | |
| parent | tweaks to run on the new machine (diff) | |
| download | HomePanel-d2866034f35b15db2bb5c8520c8b632fb5b4c2d0.tar.gz HomePanel-d2866034f35b15db2bb5c8520c8b632fb5b4c2d0.tar.bz2 HomePanel-d2866034f35b15db2bb5c8520c8b632fb5b4c2d0.zip | |
remove compilation problems with newer perl+libs
Diffstat (limited to 'lib/WebService/ForecastIo/DataBlock.pm')
| -rw-r--r-- | lib/WebService/ForecastIo/DataBlock.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/WebService/ForecastIo/DataBlock.pm b/lib/WebService/ForecastIo/DataBlock.pm index 2b737ca..1994fa8 100644 --- a/lib/WebService/ForecastIo/DataBlock.pm +++ b/lib/WebService/ForecastIo/DataBlock.pm @@ -69,7 +69,7 @@ sub _spans { my $prev = $out->[-1]->value; $out->[-1]->_set_stop_time($dp->time); if (not $comp->($prev,$v)) { # new span - push $out, WebService::ForecastIo::DataSpan->new({ + push @$out, WebService::ForecastIo::DataSpan->new({ start_time => $dp->time, stop_time => $dp->time, value => $v, |