X-Git-Url: http://git.onelab.eu/?p=vsys.git;a=blobdiff_plain;f=fdwatcher.ml;h=6c30b08148e5cea06bd68b592ceecbadaf06fa97;hp=95d4be4d0d0164a82500e36061a659d74d79dd56;hb=HEAD;hpb=acbdd1601fcfb161089d326e7e32b74b76f441e3

diff --git a/fdwatcher.ml b/fdwatcher.ml
index 95d4be4..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)
@@ -30,6 +29,6 @@ let start_watch () =
                        func evd fd_other
                      with e->
                        let wtf = Printexc.to_string e in
-                         fprintf logfd "%s\n" wtf
+                         logprint "%s\n" wtf
                 ) fds
   done