Bugfix. Crashing vsys scripts now get reported instead of failing silently

[vsys.git] / dirwatcher.ml

diff --git a/dirwatcher.ml b/dirwatcher.ml
index 5bd4d6c..3808e8b 100644 (file)
--- a/dirwatcher.ml
+++ b/dirwatcher.ml
@@ -20,7 +20,7 @@ let handle_dir_event dirname evlist str =
         flush Pervasives.stdout
 
 let add_watch dir events handler =
-  printf "Adding watch for %s\n" dir;
+  printf "Adding watch for %s\n" dir;flush Pervasives.stdout;
   let wd = Inotify.add_watch fd dir events in
       Hashtbl.add wdmap wd (dir,handler)