anchor.diff:  connect(Socket, SslOptions) when is_port(Socket) ->
       connect(Socket, SslOptions, infinity).
   
  -connect(Socket, SslOptions0, Timeout) when is_port(Socket) ->
  +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(),
  
positive.code: %%--------------------------------------------------------------------
  recv(Socket, Length) ->
      recv(Socket, Length, infinity).
  recv(#sslsocket{pid = Pid}, Length, Timeout) when is_pid(Pid) ->
      ssl_connection:recv(Pid, Length, Timeout);
  recv(#sslsocket{pid = {Listen,
  		       #config{transport_info = {Transport, _, _, _}}}}, _,_) when is_port(Listen)->
  
negative.code: 				   #config{transport_info =  {Transport,_,_, _} =CbInfo,
  					   connection_cb = ConnectionCb,
  					   ssl = SslOpts,
  					   emulated = Tracker}}}, Timeout) when (is_integer(Timeout) andalso Timeout > 0) or (Timeout == infinity) ->   
      case Transport:accept(ListenSocket, Timeout) of
  	{ok, Socket} ->
  	    {ok, EmOpts} = ssl_socket:get_emulated_opts(Tracker),
  