Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-30 16:36:29 +01:00
Code Releases Activity

Replace TYPE/1 with is_TYPE/1 (EJAB-922)

Browse Source 
SVN Revision: 2160
This commit is contained in:
Badlop 2009-06-15 17:27:06 +00:00
parent 2f3963417f
commit b4a1b4c8fb
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ejabberd_debug.erl
View File

@ -46,7 +46,7 @@ pids() ->
lists:zf( lists:zf(
fun(Pid) -> fun(Pid) ->
case process_info(Pid) of case process_info(Pid) of
ProcessInfo when list(ProcessInfo) -> ProcessInfo when is_list(ProcessInfo) ->
CurrentFunction = current_function(ProcessInfo), CurrentFunction = current_function(ProcessInfo),
InitialCall = initial_call(ProcessInfo), InitialCall = initial_call(ProcessInfo),
RegisteredName = registered_name(ProcessInfo), RegisteredName = registered_name(ProcessInfo),

4
src/eldap/eldap.erl
View File

@ -699,7 +699,7 @@ recvd_packet(Pkt, S) ->
Answer = Answer =
case {Name, Op} of case {Name, Op} of
{searchRequest, {searchResEntry, R}} when {searchRequest, {searchResEntry, R}} when
record(R,'SearchResultEntry') -> is_record(R,'SearchResultEntry') ->
New_dict = dict:append(Id, R, Dict), New_dict = dict:append(Id, R, Dict),
{ok, S#eldap{dict = New_dict}}; {ok, S#eldap{dict = New_dict}};
{searchRequest, {searchResDone, Result}} -> {searchRequest, {searchResDone, Result}} ->
@ -1059,7 +1059,7 @@ get_list(Key, List) ->
get_atom(Key, List) -> get_atom(Key, List) ->
case lists:keysearch(Key, 1, List) of case lists:keysearch(Key, 1, List) of
{value, {Key, Value}} when atom(Value) -> {value, {Key, Value}} when is_atom(Value) ->
Value; Value;
{value, {Key, _Value}} -> {value, {Key, _Value}} ->
throw({error, "Bad Value in Config for " ++ atom_to_list(Key)}); throw({error, "Bad Value in Config for " ++ atom_to_list(Key)});