[Mldonkey-commits] Changes to mldonkey/src/networks/opennap/opennapProtocol.ml

[mldonkey-commits]

Index: mldonkey/src/networks/opennap/opennapProtocol.ml
diff -u mldonkey/src/networks/opennap/opennapProtocol.ml:1.2 
mldonkey/src/networks/opennap/opennapProtocol.ml:1.3
--- mldonkey/src/networks/opennap/opennapProtocol.ml:1.2        Thu Nov 20 
16:43:24 2003
+++ mldonkey/src/networks/opennap/opennapProtocol.ml    Tue Sep  6 11:25:00 2005
@@ -1106,7 +1106,7 @@
 open LittleEndian
 
 let server_msg_to_string msg =
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int16 buf 0;
   write buf msg;
   let s = Buffer.contents buf in
@@ -1119,7 +1119,7 @@
   write_string sock (server_msg_to_string m)
 
 let server_msg_to_string msg =
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int16 buf 0;
   write buf msg;
   let s = Buffer.contents buf in