projects
/
collectd.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
recognize seconds with and without fractional part
[collectd.git]
/
bindings
/
perl
/
lib
/
Collectd
/
MockDaemon.pm
diff --git
a/bindings/perl/lib/Collectd/MockDaemon.pm
b/bindings/perl/lib/Collectd/MockDaemon.pm
index
abf058f
..
9d784b7
100644
(file)
--- 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);
sub listval {
my $trunc_now = substr(time, 0, -1);
+ my $toggle;
return print_nvalues(scalar @metrics) .
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 {
}
sub getval {