git://git.onelab.eu
/
vsys.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0888e69
)
Bug fix
author
Sapan Bhatia
<sapanb@cs.princeton.edu>
Thu, 8 Nov 2007 17:40:07 +0000
(17:40 +0000)
committer
Sapan Bhatia
<sapanb@cs.princeton.edu>
Thu, 8 Nov 2007 17:40:07 +0000
(17:40 +0000)
backend.ml
patch
|
blob
|
history
diff --git
a/backend.ml
b/backend.ml
index
7d00cfd
..
2f373c0
100644
(file)
--- a/
backend.ml
+++ b/
backend.ml
@@
-58,8
+58,13
@@
class backendHandler dir_root (frontend_lst: frontendHandler list) =
let s = Unix.stat fqp in
List.iter
(fun frontend->
let s = Unix.stat fqp in
List.iter
(fun frontend->
- frontend#mkdir (mk_rel_path fqp) (s.st_perm);
- Dirwatcher.add_watch fqp [S_Create;S_Delete] (Some(func)))
+ try begin
+ frontend#mkdir (mk_rel_path fqp) (s.st_perm);
+ Dirwatcher.add_watch fqp [S_Create;S_Delete] (Some(func))
+ end
+ with _ ->
+ printf "Could not create %s. Looks like a slice shot itself in the foot\n" fqp;flush Pervasives.stdout;
+ )
slice_list
(** Somebody copied in a new script *)
slice_list
(** Somebody copied in a new script *)