X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=frontend.ml;h=aca8e7b65ff0941588824c857175b50f613c634a;hb=8ed94d4c37a320acc03f1f3f6523201b42202f00;hp=a3a557d0b2673498bd17fdf9af652f3c298cc49d;hpb=86fd747228605ac982394426c8b65c4a327f0b1f;p=vsys.git

diff --git a/frontend.ml b/frontend.ml
index a3a557d..aca8e7b 100644
--- a/frontend.ml
+++ b/frontend.ml
@@ -21,8 +21,11 @@ object(this)
             let realperm = perm land (lnot 0o111) in
     match rp with Relpath(rel) ->
       let fqp = String.concat "/" [root_dir;rel] in
-         Fifowatcher.mkentry fqp abspath realperm;
-         Fifowatcher.openentry fqp (abspath,slice_name) realperm
+      let res = Fifowatcher.mkentry fqp abspath realperm in
+        match res with 
+          | Success ->
+              Fifowatcher.openentry fqp (abspath,slice_name) realperm
+          | _ -> ()
 
   (** A new directory was created at the backend, make a corresponding directory
     at the frontend. Refer to mkentry for parameters *)