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:
parent
8b690c9f9f
commit
9733e6874e
@ -1,5 +1,7 @@
|
||||
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/ejabberd_zlib/ejabberd_zlib_drv.c: Likewise
|
||||
|
||||
|
@ -285,8 +285,9 @@ replace_term(Term, _) ->
|
||||
|
||||
is_all_uppercase(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
|
||||
|
Loading…
Reference in New Issue
Block a user