[Toss-devel-svn] SF.net SVN: toss:[1506] trunk/Toss/Server/ReqHandler.ml

[<luk...@us...>]

Revision: 1506
          http://toss.svn.sourceforge.net/toss/?rev=1506&view=rev
Author:   lukaszkaiser
Date:     2011-07-06 22:13:35 +0000 (Wed, 06 Jul 2011)

Log Message:
-----------
Small stability bug.

Modified Paths:
--------------
    trunk/Toss/Server/ReqHandler.ml

Modified: trunk/Toss/Server/ReqHandler.ml
===================================================================
--- trunk/Toss/Server/ReqHandler.ml	2011-07-06 20:07:16 UTC (rev 1505)
+++ trunk/Toss/Server/ReqHandler.ml	2011-07-06 22:13:35 UTC (rev 1506)
@@ -731,7 +731,7 @@
       if line_in = "" || line_in = "\r" then 
 	try nonempty () with End_of_file -> "" 
       else line_in in
-    try nonempty () with Sys_error _ -> "" in
+    try nonempty () with Sys_blocked_io | Sys_error _ -> "" in
   let line_in_len = String.length line_in in
   if line_in_len = 0 then ("", None) else
   (* TODO: who needs escaping? *)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.