anchor.diff:  connect(Host, Port, Options) ->
       connect(Host, Port, Options, infinity).
   
  -connect(Host, Port, Options, Timeout) ->
  +connect(Host, Port, Options, Timeout) when (is_integer(Timeout) andalso Timeout > 0) or (Timeout == infinity) ->
       try handle_options(Options) of
   	{ok, Config} ->
   	    do_connect(Host,Port,Config,Timeout)
  
positive.code:     catch
  	Error = {error, _Reason} -> Error
      end;
  ssl_accept(Socket, SslOptions, Timeout) when is_port(Socket) -> 
      {Transport,_,_,_} =
  	proplists:get_value(cb_info, SslOptions, {gen_tcp, tcp, tcp_closed, tcp_error}),
      EmulatedOptions = ssl_socket:emulated_options(),
  
negative.code: connect(Socket, SslOptions) when is_port(Socket) ->
      connect(Socket, SslOptions, infinity).
  
  connect(Socket, SslOptions0, Timeout) when is_port(Socket),
  					    (is_integer(Timeout) andalso Timeout > 0) or (Timeout == infinity) ->
      {Transport,_,_,_} = proplists:get_value(cb_info, SslOptions0,
  					      {gen_tcp, tcp, tcp_closed, tcp_error}),
      EmulatedOptions = ssl_socket:emulated_options(),
  