X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=bindings%2Fperl%2Flib%2FCollectd%2FMockDaemon.pm;h=9d784b7c353e8a52d466b93d20faaf1187e1f6f2;hb=eeff4955c4db2d18193b6335274afd0023b765e2;hp=381b2d17ce941432cb49b6c5519dd5fe0da39750;hpb=c346dc6b18ee4215ccab911c1732c5c39a961baf;p=collectd.git

diff --git a/bindings/perl/lib/Collectd/MockDaemon.pm b/bindings/perl/lib/Collectd/MockDaemon.pm
index 381b2d17..9d784b7c 100644
--- a/bindings/perl/lib/Collectd/MockDaemon.pm
+++ b/bindings/perl/lib/Collectd/MockDaemon.pm
@@ -55,9 +55,10 @@ sub daemon {
 }
 
 sub listval {
-    my $now = time;
+    my $trunc_now = substr(time, 0, -1);
+    my $toggle;
     return print_nvalues(scalar @metrics) .
-    join('', map { "$now $_\n" } @metrics);
+    join('', map { $trunc_now . int(rand(10)) . ($toggle=!$toggle ? ".".int(rand(1000)) : '') . " $_\n" } @metrics);
 }
 
 sub getval {