X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=unixsocketwatcher.ml;fp=unixsocketwatcher.ml;h=7663be93f8c9512072df23a0d65fd42d09841d81;hb=fa2fedc9aa9d571c5907d9b71908beb9f46489fb;hp=99fe554190da248b587779f9db811c8e78c99d44;hpb=a962c8af92327e9b8b91ae71c21f5e7bdf6f117d;p=vsys.git

diff --git a/unixsocketwatcher.ml b/unixsocketwatcher.ml
index 99fe554..7663be9 100644
--- a/unixsocketwatcher.ml
+++ b/unixsocketwatcher.ml
@@ -39,7 +39,7 @@ let receive_event (listening_socket_spec:fname_and_fd) (_:fname_and_fd) =
           |None -> logprint "Received unexpected socket event\n";()
           |Some (execpath, slice_name) ->
               begin
-                let child = fork () in
+                let child = try fork () with _ -> -1 in
                   if (child == 0) then
                     begin
                       (* Child *)