[Mldonkey-commits] Changes to mldonkey/src/networks/direct_connect/dcProtocol.ml

[mldonkey-commits]

Index: mldonkey/src/networks/direct_connect/dcProtocol.ml
diff -u mldonkey/src/networks/direct_connect/dcProtocol.ml:1.3 
mldonkey/src/networks/direct_connect/dcProtocol.ml:1.4
--- mldonkey/src/networks/direct_connect/dcProtocol.ml:1.3      Mon Nov  1 
11:23:00 2004
+++ mldonkey/src/networks/direct_connect/dcProtocol.ml  Tue Sep  6 11:24:59 2005
@@ -857,7 +857,7 @@
 let server_send debug sock m =
 (*  lprintf "SENDING"; lprint_newline ();
   print m; *)
-  Buffer.clear buf;
+  Buffer.reset buf;
   write buf m;
   Buffer.add_char buf '|';
   let s = Buffer.contents buf in
@@ -869,7 +869,7 @@
 let debug_server_send sock m =
   lprintf "SENDING"; lprint_newline ();
   print m; 
-  Buffer.clear buf;
+  Buffer.reset buf;
   write buf m;
   Buffer.add_char buf '|';
   let s = Buffer.contents buf in