[Mldonkey-commits] Changes to mldonkey/src/utils/net/tcpBufferedSocket.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpBufferedSocket.ml
diff -u mldonkey/src/utils/net/tcpBufferedSocket.ml:1.29 
mldonkey/src/utils/net/tcpBufferedSocket.ml:1.30
--- mldonkey/src/utils/net/tcpBufferedSocket.ml:1.29    Mon Aug  8 16:47:31 2005
+++ mldonkey/src/utils/net/tcpBufferedSocket.ml Tue Aug  9 10:48:38 2005
@@ -1449,7 +1449,7 @@
 
 let simple_send_buf buf sock =
   let s = Buffer.contents buf in
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int8 buf 228;
   let len = String.length s in
   buf_int buf len;
@@ -1457,7 +1457,8 @@
   write sock s 0 len
 
 let value_send sock m =
-  Buffer.clear internal_buf;
+  (* Buffer.clear internal_buf; *)
+  Buffer.reset internal_buf;
   Buffer.add_string internal_buf (Marshal.to_string m []);
   simple_send_buf internal_buf sock