git://git.onelab.eu
/
vsys.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tagging module vsys - vsys-0.7-9
[vsys.git]
/
frontend.ml
diff --git
a/frontend.ml
b/frontend.ml
index
43c2ffa
..
e8526cc
100644
(file)
--- 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
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
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(_,_,_) ->
Unix.mkdir root_dir 0o700
end;
with Unix.Unix_error(_,_,_) ->
+ begin
try
Unix.mkdir root_dir 0o700;
with _ -> ();
try
Unix.mkdir root_dir 0o700;
with _ -> ();
+ end);
Directfifowatcher.add_dir_watch root_dir
end
Directfifowatcher.add_dir_watch root_dir
end