update MockDaemon to report fractional seconds

diff --git a/bindings/perl/lib/Collectd/MockDaemon.pm b/bindings/perl/lib/Collectd/MockDaemon.pm
index 381b2d17ce941432cb49b6c5519dd5fe0da39750..abf058f6d7e116779bd0a8d37edbefd1ab6e1802 100644 (file)
--- a/bindings/perl/lib/Collectd/MockDaemon.pm
+++ b/bindings/perl/lib/Collectd/MockDaemon.pm
@@ -55,9 +55,9 @@ sub daemon {
 }
 
 sub listval {
-    my $now = time;
+    my $trunc_now = substr(time, 0, -1);
     return print_nvalues(scalar @metrics) .
-    join('', map { "$now $_\n" } @metrics);
+    join('', map { sprintf("%s%d.%d %s\n", $trunc_now, rand(10), rand(1000), $_) } @metrics);
 }
 
 sub getval {