Permalink
Browse files

CA-91930: Add some warning comments to make sure we don't regress thi…

…s fix.

Signed-off-by: Jon Ludlam <jonathan.ludlam@eu.citrix.com>
  • Loading branch information...
1 parent 2066206 commit c3375f4bed2f21c053036067e03caece476eb4cc @jonludlam jonludlam committed Oct 8, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 ocaml/xapi/xapi_xenops.ml
@@ -1420,6 +1420,7 @@ let events_from_xapi () =
while true do
let from = XenAPI.Event.from ~rpc ~session_id ~classes ~token:!token ~timeout:60. |> event_from_of_xmlrpc in
+ if List.length from.events > 200 then warn "Warning: received more than 200 events!";
List.iter
(function
| { ty = "vm"; reference = vm' } ->
@@ -1439,7 +1440,7 @@ let events_from_xapi () =
raise e
end
end
- | _ -> ()
+ | _ -> warn "Received event for something we didn't register for!"
) from.events;
token := from.token;
Events_from_xapi.broadcast !token;

0 comments on commit c3375f4

Please sign in to comment.