diff options
Diffstat (limited to 'src/jlib.erl')
| -rw-r--r-- | src/jlib.erl | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/src/jlib.erl b/src/jlib.erl index 91fd5f076..4992bb516 100644 --- a/src/jlib.erl +++ b/src/jlib.erl @@ -238,13 +238,24 @@ is_nodename1([]) -> % [?LOWER(Char) || Char <- S]. % Not tail-recursive but it seems works faster than variants above -tolower([C | Cs]) when C >= $A, C =< $Z -> - [C + 32 | tolower(Cs)]; tolower([C | Cs]) -> - [C | tolower(Cs)]; + if + C >= $A, C =< $Z -> + [C + 32 | tolower(Cs)]; + true -> + [C | tolower(Cs)] + end; tolower([]) -> []. +%tolower([C | Cs]) when C >= $A, C =< $Z -> +% [C + 32 | tolower(Cs)]; +%tolower([C | Cs]) -> +% [C | tolower(Cs)]; +%tolower([]) -> +% []. + + jid_tolower({U, S, R}) -> {tolower(U), tolower(S), R}. |