[Mldonkey-commits] mldonkey distrib/ChangeLog src/utils/net/http_c...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       11/01/06 20:09:09

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

Log message:
        patch #6012

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1509&r2=1.1510
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/utils/net/http_client.ml?cvsroot=mldonkey&r1=1.44&r2=1.45

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1509
retrieving revision 1.1510
diff -u -b -r1.1509 -r1.1510
--- distrib/ChangeLog   22 Dec 2010 10:04:56 -0000      1.1509
+++ distrib/ChangeLog   6 Jan 2011 20:09:09 -0000       1.1510
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2011/01/06
+6012: Fix bug in Http_client.wget_string (ygrek)
+
 2010/12/22
 7418: Ignore setsockopt_float exception while sending mail
 

Index: src/utils/net/http_client.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/net/http_client.ml,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- src/utils/net/http_client.ml        7 Nov 2010 15:01:40 -0000       1.44
+++ src/utils/net/http_client.ml        6 Jan 2011 20:09:09 -0000       1.45
@@ -500,7 +500,7 @@
       let content = 
         if r.req_gzip then
           try
-            let io = IO.input_string (Buffer.contents file_buf) in
+            let io = Gzip.input_io (IO.input_string (Buffer.contents 
file_buf)) in
             IO.read_all io
           with e -> 
             lprintf_nl "Exception %s while uncompressing content from %s" 
(Printexc2.to_string e) (Url.to_string r.req_url);