--- AnyEvent-ZabbixSender/ZabbixSender.pm	2018/01/18 10:48:10	1.2
+++ AnyEvent-ZabbixSender/ZabbixSender.pm	2018/01/18 15:38:11	1.3
@@ -86,12 +86,12 @@
 other than a zabbix server is running on a port. The given key-value pairs
 are the lost items.
 
-=item on_loss => $cb->$zbx, (\@items) (default: log and continue)
+=item on_loss => $cb->($zbx, \@items) (default: log and continue)
 
 Will be called when some data items are thrown away (this happens if the
 server isn't reachable for at least C<queue_time> seconds),
 
-=item on_response => $cb->$zbx, (\@items, \%response) (default: not called)
+=item on_response => $cb->($zbx, \@items, \%response) (default: not called)
 
 Will be called with the (generally rather useless) response form the
 zabbix server.
@@ -220,6 +220,7 @@
          
       delete $self->{retry};
 
+      delete $self->{send_immediate};
       my $data = delete $self->{queue};
       my $items = [map @{ $_->[1] }, @$data];
 
@@ -262,7 +263,7 @@
 
       my $json = $json->encode ({
          request => "sender data",
-         clock => AE::now,
+         clock => int AE::now,
          data => [
             map {
                my $slot = $_;
@@ -270,7 +271,7 @@
                map {
                   key   => $_->[0],
                   value => $_->[1],
-                  clock => $_->[2] // $slot->[0],
+                  clock => int ($_->[2] // $slot->[0]),
                   host  => $_->[3] // $self->{host},
                }, @{ $slot->[1] }
             } @$data