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
Audited code. Vsys should now be robust to system exceptions.
[vsys.git]
/
frontend.ml
diff --git
a/frontend.ml
b/frontend.ml
index
a3a557d
..
aca8e7b
100644
(file)
--- 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
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 *)
(** A new directory was created at the backend, make a corresponding directory
at the frontend. Refer to mkentry for parameters *)