Hashtbl.replace cbtable fd (callback,(evpair,fd_other))
let del_fd fd =
- fdset:=List.filter (fun l->l<>fd) !fdset;
- flush logfd
+ fdset:=List.filter (fun l->l<>fd) !fdset
let start_watch () =
while (true)
func evd fd_other
with e->
let wtf = Printexc.to_string e in
- fprintf logfd "%s\n" wtf
+ logprint "%s\n" wtf
) fds
done