From cecd0486ebe1fa3df92f00427355de06810e8f1d Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 8 Jan 2012 14:02:18 -0500
Subject: [PATCH] Ignore SIGPIPE

---
 ocamlmsg.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ocamlmsg.ml b/ocamlmsg.ml
index 0372446..8a1629c 100644
--- a/ocamlmsg.ml
+++ b/ocamlmsg.ml
@@ -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 ();