--- a/netserver/hedgewars-server.hs	Wed Oct 22 14:01:43 2008 +0000
+++ b/netserver/hedgewars-server.hs	Wed Oct 22 15:31:35 2008 +0000
@@ -12,6 +12,7 @@
 import Miscutils
 import HWProto
 import Opts
+import System.Posix
 
 acceptLoop :: Socket -> TChan ClientInfo -> IO ()
 acceptLoop servSock acceptChan = do
@@ -96,6 +97,7 @@
 
 
 main = withSocketsDo $ do
+	installHandler sigPIPE Ignore Nothing;
 	putStrLn $ "Listening on port " ++ show (listenPort globalOptions)
 	serverSocket <- listenOn $ PortNumber (listenPort globalOptions)
 	startServer serverSocket `finally` sClose serverSocket