syndicate-lang
/
hop-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Ignore SIGPIPE

This commit is contained in:
Tony Garnock-Jones 2012-01-08 14:02:18 -05:00
parent 7dff60b8a3
commit cecd0486eb
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ocamlmsg.ml
View File

@ -17,6 +17,7 @@ let start_net port_number =
let _ =
printf "ocamlmsg ALPHA, Copyright (C) 2012 Tony Garnock-Jones. All rights reserved.\n%!";
Sys.set_signal Sys.sigpipe Sys.Signal_ignore;
Uuid.init ();
Factory.init ();
Queuenode.init ();