Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Chasse aux ; superflus de Damien :-) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3583 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2001-07-16 19:40:17 +00:00
parent 67d149436b
commit 0b4de72b8d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
otherlibs/unix/unix.ml
View File

@ -695,7 +695,7 @@ let establish_server server_fun sockaddr =
socket domain SOCK_STREAM 0 in
setsockopt sock SO_REUSEADDR true;
bind sock sockaddr;
listen sock 3;
listen sock 5;
while true do
let (s, caller) = accept sock in
(* The "double fork" trick, the process which calls server_fun will not
@ -709,7 +709,7 @@ let establish_server server_fun sockaddr =
(* The file descriptor was already closed by close_out.
close_in inchan;
*)
exit 0;
exit 0
| id -> close s; ignore(waitpid [] id) (* Reclaim the son *)
done