From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Thu, 8 Nov 2007 17:40:07 +0000 (+0000)
Subject: Bug fix
X-Git-Tag: vsys-0.7-19~4
X-Git-Url: http://git.onelab.eu/?a=commitdiff_plain;h=505b26488cd95ab38151837bddf56c7cbf542cf7;p=vsys.git

Bug fix
---

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 *)