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 87648c8 commit 8da1140b9fff72fe9994dc45753d51eb490a7135 @jonludlam jonludlam committed Oct 8, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 ocaml/xapi/xapi_xenops.ml
@@ -1443,6 +1443,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' } ->
@@ -1462,7 +1463,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 8da1140

Please sign in to comment.