X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=frontend.ml;h=e8526cc694a87d8625bbe0965504378c786c5f6c;hb=46e48c60e9d524bf71631561e193c443613a2bb5;hp=43c2ffa1861383840c49bca8f4a66cea9824c0cf;hpb=f37863116494a4011988ad51100e6b956bcb4bd7;p=vsys.git

diff --git a/frontend.ml b/frontend.ml
index 43c2ffa..e8526cc 100644
--- a/frontend.ml
+++ b/frontend.ml
@@ -77,6 +77,7 @@ object(this)
           fprintf logfd "Hm. %s disappeared or not empty. Looks like slice %s shot itself in the foot\n" fqp (this#get_slice_name ());flush logfd
 
   initializer 
+          (
         try 
           let s = Unix.stat root_dir in
             if (s.st_kind<>S_DIR) then
@@ -90,8 +91,10 @@ object(this)
                 Unix.mkdir root_dir 0o700
               end;
         with Unix.Unix_error(_,_,_) ->
+          begin
           try 
           Unix.mkdir root_dir 0o700;
           with _ -> ();
+          end);
         Directfifowatcher.add_dir_watch root_dir
 end