Hmm, the patch does not seem to apply cleanly to 0.9.2-2. I tried patching it manually to look like this:
let send c x =
try
let socket = get_socket c in
let len = String.length x in
let rec write ofs =
let rem = len - ofs in
if rem > 0 then
let ret = Unix.write socket request ofs rem in
if ret = 0 then
raise (Error Write) ;
if ret < rem then
write (ofs+ret)
in
write 0
with
| _ -> raise (Error Write)
However, I get the following compile error:
make -C src all
make[1]: Entering directory
`/root/downloads/liquidsoap-full-0.9.2/ocaml-cry-0.1.2/src'
make[2]: Entering directory
`/root/downloads/liquidsoap-full-0.9.2/ocaml-cry-0.1.2/src'
/usr/local/bin/ocamlc.opt -c cry.ml
File "cry.ml", line 608, characters 34-41:
Unbound value request
make[2]: *** [cry.cmo] Error 2
make[2]: Leaving directory
`/root/downloads/liquidsoap-full-0.9.2/ocaml-cry-0.1.2/src'
make[1]: *** [byte-code-library] Error 2
make[1]: Leaving directory
`/root/downloads/liquidsoap-full-0.9.2/ocaml-cry-0.1.2/src'
make: *** [all] Error 2
I've attached the full cry.ml file
What am I doing wrong here?
Andrew
cry.ml
Description: Binary data
On 2010-05-20, at 6:06 PM, Romain Beauxis wrote: > Le lundi 17 mai 2010 11:04:02, Andrew a écrit : >>> I would be very pleased to propose you some test and patches to see how >>> we can fix this issue. Are you able to test patches ? >> >> Sure thing. Send them along and I'll test them out. > > Can you test the attached patch ? It has to be applied in ocaml-cry/src and > was already commited if you use the SVN.. > > Romain > <cry_safe_write.patch>
------------------------------------------------------------------------------
_______________________________________________ Savonet-users mailing list Savonet-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/savonet-users
