From: Torbjorn T. <et...@us...> - 2005-02-28 23:29:30
|
Update of /cvsroot/jungerl/jungerl/lib/eldap/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22223 Modified Files: eldap.erl Log Message: Fixed a braindead bug Index: eldap.erl =================================================================== RCS file: /cvsroot/jungerl/jungerl/lib/eldap/src/eldap.erl,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- eldap.erl 10 Nov 2003 13:59:03 -0000 1.3 +++ eldap.erl 28 Feb 2005 23:29:22 -0000 1.4 @@ -40,6 +40,8 @@ %%-define(PRINT(S, A), io:fwrite("~w(~w): " ++ S, [?MODULE,?LINE|A])). -define(PRINT(S, A), true). +-define(elog(S, A), error_logger:info_msg("~w(~w): "++S,[?MODULE,?LINE|A])). + %%% ==================================================================== %%% Exported interface %%% ==================================================================== @@ -676,9 +678,9 @@ recv_response(S, Data) -> Timeout = get(req_timeout), % kludge... case do_recv(S, Data, 0, Timeout) of - {ok, Data} -> - check_tag(Data), - case asn1rt:decode('ELDAPv3', 'LDAPMessage', Data) of + {ok, Packet} -> + check_tag(Packet), + case asn1rt:decode('ELDAPv3', 'LDAPMessage', Packet) of {ok,Resp} -> {ok,Resp}; Error -> throw(Error) end; |