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

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpClientSocket.ml
diff -u mldonkey/src/utils/net/tcpClientSocket.ml:1.6 
mldonkey/src/utils/net/tcpClientSocket.ml:1.7
--- mldonkey/src/utils/net/tcpClientSocket.ml:1.6       Mon Aug 15 20:23:34 2005
+++ mldonkey/src/utils/net/tcpClientSocket.ml   Tue Sep  6 11:25:00 2005
@@ -742,7 +742,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;
@@ -752,7 +752,7 @@
   
 let value_send sock m = ()
   (*
-  Buffer.clear internal_buf;
+  Buffer.reset internal_buf;
   Buffer.add_string internal_buf (Marshal.to_string m []);
   simple_send_buf internal_buf sock
 *)