From: Matthias Bethke <mbe@financial.com>
Date: Tue, 22 Nov 2016 16:37:33 +0000 (+0700)
Subject: pass fractional seconds upwards as floats
X-Git-Tag: collectd-5.7.0~28^2~2
X-Git-Url: https://git.octo.it/?p=collectd.git;a=commitdiff_plain;h=e9d54bc4c631030c6800ffa9291ad49f24ab2306

pass fractional seconds upwards as floats
---

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