#7 Uq_engines.connector bug on pollset_posix queue

[Anonymous]

When try to connect to some unlistened address, error occured. State is_error is never called, and 100% CPU loading.

OS: linux, Fedora 8

let _ =
Unixqueue_util.set_debug_mode true;
let poll_set = Netsys_pollset_posix.poll_based_pollset 10 in
let event_queue = Unixqueue2.pollset_event_system poll_set in
let caddr = `Socket (
(
`Sock_inet_byname (Unix.SOCK_STREAM,"localhost",9999), (* This is free socket *)
Uq_engines.default_connect_options
)
)
in
let client = Uq_engines.connector caddr event_queue in
Uq_engines.when_state ~is_done:(fun x -> prind_endline "OK!!!") ~is_error:(fun x -> prerr_endline "!~Error") ~is_aborted:(fun x -> prerr_endline "!~Aborted") client;
Unixqueue.run event_queue

[Gerd Stolpmann]

Cannot reproduce with current version.