anchor.diff:  %%% connection is made.
   
   try_connect([Host|Hosts], Data) ->
  -    TcpOpts = [{packet, asn1}, {active,false}],
  -    case gen_tcp:connect(Host, Data#eldap.port, TcpOpts) of
  +    TcpOpts = [{packet, asn1}, {active,false}, {nodelay, true}],
  +    SocketModule = Data#eldap.socketmodule,
  +    case SocketModule:connect(Host, Data#eldap.port, TcpOpts) of
   	{ok,Fd} -> {ok,Data#eldap{host = Host, fd   = Fd}};
   	_       -> try_connect(Hosts, Data)
       end;
  
positive.code: collect_search_responses(Data, Req, ID) ->
      S = Data#eldap.fd,
      log2(Data, "search request = ~p~n", [Req]),
      send_request(S, ID, {searchRequest, Req}),
      Resp = recv_response(S),
      log2(Data, "search reply = ~p~n", [Resp]),    
      collect_search_responses(Data, S, ID, Resp, [], []).
  
  
negative.code: 			 name           = Data#eldap.rootdn,  
  			 authentication = {simple, Data#eldap.passwd}},
      log2(Data, "bind request = ~p~n", [Req]),
      Reply = request(Data#eldap.socketmodule, Data#eldap.fd, Data#eldap.id, {bindRequest, Req}),
      log2(Data, "bind reply = ~p~n", [Reply]),    
      exec_simple_bind_reply(Data, Reply).
  
  