git://git.onelab.eu
/
vsys.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Getting rid of scripts from the vsys package. These scripts can be found in the vsys...
[vsys.git]
/
unixsocketwatcher.ml
diff --git
a/unixsocketwatcher.ml
b/unixsocketwatcher.ml
index
99fe554
..
7663be9
100644
(file)
--- 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
|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 *)
if (child == 0) then
begin
(* Child *)