[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/server.lisp

[BKNR Commits]

Revision: 4129
Author: hans
URL: http://bknr.net/trac/changeset/4129

Ignore ECONNABORTED errors while accepting incoming connections.

U   trunk/thirdparty/hunchentoot/server.lisp

Modified: trunk/thirdparty/hunchentoot/server.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/server.lisp	2008-12-10 10:54:45 UTC (rev 4128)
+++ trunk/thirdparty/hunchentoot/server.lisp	2008-12-10 10:56:53 UTC (rev 4129)
@@ -399,13 +399,17 @@
                              (usocket:wait-for-input listener :timeout +new-connection-wait-time+)))
           ((server-shutdown-p server))
         (when new-connection-p
-          (let ((client-connection (usocket:socket-accept listener)))
-            (when client-connection
-              (set-timeouts client-connection
-                            (server-read-timeout server)
-                            (server-write-timeout server))
-              (handle-incoming-connection (server-connection-manager server)
-                                          client-connection))))))))
+          (handler-case
+              (let ((client-connection (usocket:socket-accept listener)))
+                (when client-connection
+                  (set-timeouts client-connection
+                                (server-read-timeout server)
+                                (server-write-timeout server))
+                  (handle-incoming-connection (server-connection-manager server)
+                                              client-connection)))
+            (usocket:connection-aborted-error ()
+              ;; ignore condition
+              )))))))
 
 (defgeneric initialize-connection-stream (server stream) 
  (:documentation "Wraps the given STREAM with all the additional