[Mldonkey-commits] mldonkey/src/utils/net http_client.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       10/08/01 13:49:31

Modified files:
        src/utils/net  : http_client.ml 

Log message:
        last minute fix for patch #7262

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/utils/net/http_client.ml?cvsroot=mldonkey&r1=1.41&r2=1.42

Patches:
Index: http_client.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/net/http_client.ml,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- http_client.ml      28 Jul 2010 16:25:45 -0000      1.41
+++ http_client.ml      1 Aug 2010 13:49:31 -0000       1.42
@@ -236,7 +236,7 @@
           (fun sock e -> 
 (*             if !verbose then lprintf_nl "Event %s" (string_of_event e); *)
             match e with (* FIXME content-length check *)
-            | BASIC_EVENT (CLOSED (Closed_by_user | Closed_by_peer _)) when 
!ok -> f ()
+            | BASIC_EVENT (CLOSED (Closed_by_user | Closed_by_peer)) when !ok 
-> f ()
             | BASIC_EVENT (CLOSED _) -> ferr 0
             | BASIC_EVENT LTIMEOUT -> close sock Closed_for_lifetime
             | _ -> ())