X-Git-Url: http://git.onelab.eu/?p=vsys.git;a=blobdiff_plain;f=fdwatcher.ml;h=6c30b08148e5cea06bd68b592ceecbadaf06fa97;hp=a85baaaaad124e7af0688b6135eed9a2e1096b2a;hb=HEAD;hpb=ae0378a578b7c73091fdc46769ba7a5971ef0939 diff --git a/fdwatcher.ml b/fdwatcher.ml index a85baaa..6c30b08 100644 --- a/fdwatcher.ml +++ b/fdwatcher.ml @@ -14,8 +14,7 @@ let add_fd (evpair:fname_and_fd) (fd_other:fname_and_fd) (callback:fname_and_fd- 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)