From 505b26488cd95ab38151837bddf56c7cbf542cf7 Mon Sep 17 00:00:00 2001 From: Sapan Bhatia Date: Thu, 8 Nov 2007 17:40:07 +0000 Subject: [PATCH] Bug fix --- backend.ml | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/backend.ml b/backend.ml index 7d00cfd..2f373c0 100644 --- 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-> - 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 *) -- 2.47.0