From e9d54bc4c631030c6800ffa9291ad49f24ab2306 Mon Sep 17 00:00:00 2001 From: Matthias Bethke Date: Tue, 22 Nov 2016 23:37:33 +0700 Subject: [PATCH] pass fractional seconds upwards as floats --- bindings/perl/lib/Collectd/Unixsock.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/bindings/perl/lib/Collectd/Unixsock.pm b/bindings/perl/lib/Collectd/Unixsock.pm index 37f04cfe..96287eb4 100644 --- a/bindings/perl/lib/Collectd/Unixsock.pm +++ b/bindings/perl/lib/Collectd/Unixsock.pm @@ -404,10 +404,10 @@ sub listval_filter my ($time, $ident) = split / /, $msg, 2; $ident = _parse_identifier ($ident); - $ident->{time} = int $time; + $ident->{time} = 0+$time; push (@ret, $ident); - } # for (i = 0 .. $status) + } # for (i = 0 .. $nresults) return @ret; } # listval_filter @@ -446,10 +446,10 @@ sub listval my ($time, $ident) = split / /, $msg, 2; $ident = _parse_identifier ($ident); - $ident->{time} = int $time; + $ident->{time} = 0+$time; push (@ret, $ident); - } # for (i = 0 .. $status) + } # for (i = 0 .. $nresults) return @ret; } # listval -- 2.30.2