25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-22 17:28:25 +01:00

* src/ejabberd_config.erl: Removed a dependency on string:to_upper

SVN Revision: 1288
This commit is contained in:
Alexey Shchepin 2008-04-11 05:52:10 +00:00
parent 8b690c9f9f
commit 9733e6874e
2 changed files with 25 additions and 22 deletions

View File

@ -1,5 +1,7 @@
2008-04-11 Alexey Shchepin <alexey@process-one.net> 2008-04-11 Alexey Shchepin <alexey@process-one.net>
* src/ejabberd_config.erl: Removed a dependency on string:to_upper
* src/tls/tls_drv.c: Fixed gcc signedness warnings * src/tls/tls_drv.c: Fixed gcc signedness warnings
* src/ejabberd_zlib/ejabberd_zlib_drv.c: Likewise * src/ejabberd_zlib/ejabberd_zlib_drv.c: Likewise

View File

@ -285,8 +285,9 @@ replace_term(Term, _) ->
is_all_uppercase(Atom) -> is_all_uppercase(Atom) ->
String = erlang:atom_to_list(Atom), String = erlang:atom_to_list(Atom),
(String == string:to_upper(String)). lists:all(fun(C) when C >= $a, C =< $z -> false;
(_) -> true
end, String).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Process terms %%% Process terms