X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=unixsocketwatcher.ml;h=7663be93f8c9512072df23a0d65fd42d09841d81;hb=6c089e9eaff0baba2e1a057e3f66501c791d0a41;hp=99fe554190da248b587779f9db811c8e78c99d44;hpb=4d3b3106c2210fa433241a91a7aae34e7840ba64;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 *)