...
begin try
  syscall (fun () -> Unix.connect s ...
  ...
with
  Unix.Unix_error(UNIX.EINPROGRESS,_,_) -> ...
  | Unix.Unix_error(e,_,_) -> ...
  | err -> prerr_endline (Printexc.to_string err)
done;
...

The output for this is:

Unix.Unix_error(38, "connect", "")

How is this possible?

For background: this code is from the connect_server
method in the http_client package from ocamlnet's
netclient (I added the last with pattern).

I'm trying to write an XML-RPC client, using the
XML-RPC package. One simple test client works
perfectly. The actual client is giving me this
behavior.

I put in a try block around the place in the XML-RPC
package where http_client is called. The with clause
there catches Unix.Unix_error(e,_,_). But, this
exception should never leave this connect_server
method because there's a pattern which matches it.
Even stranger is the output when I added the final
with pattern above.

What could be going on?

Thanks in advance for any tips.


K


----------------------------------------------------------------
This message was sent using IMP, the Internet Messaging Program.