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
381b2d1
..
9d784b7
100644
(file)
--- a/
bindings/perl/lib/Collectd/MockDaemon.pm
+++ b/
bindings/perl/lib/Collectd/MockDaemon.pm
@@
-55,9
+55,10
@@
sub daemon {
}
sub listval {
}
sub listval {
- my $now = time;
+ my $trunc_now = substr(time, 0, -1);
+ my $toggle;
return print_nvalues(scalar @metrics) .
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 {
}
sub getval {