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

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