diff options
author | Hans Nilsson <[email protected]> | 2017-10-12 15:02:18 +0200 |
---|---|---|
committer | Hans Nilsson <[email protected]> | 2017-10-12 15:02:18 +0200 |
commit | 4900f9886cc80ecf34f9590829878da937e75422 (patch) | |
tree | ea3ba97059cb8653564280f3cddeeed5f06fe2cf /lib/public_key/src/public_key.erl | |
parent | 3d809548a8e10f719a4d0bd6580e4e0dbd809888 (diff) | |
parent | 7dcaed64849f830a44da28c0d49e908d173b173d (diff) | |
download | otp-4900f9886cc80ecf34f9590829878da937e75422.tar.gz otp-4900f9886cc80ecf34f9590829878da937e75422.tar.bz2 otp-4900f9886cc80ecf34f9590829878da937e75422.zip |
Merge branch 'maint'
Diffstat (limited to 'lib/public_key/src/public_key.erl')
-rw-r--r-- | lib/public_key/src/public_key.erl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/public_key/src/public_key.erl b/lib/public_key/src/public_key.erl index c3f2d791a3..453f34de64 100644 --- a/lib/public_key/src/public_key.erl +++ b/lib/public_key/src/public_key.erl @@ -1529,6 +1529,8 @@ verify_hostname_match_loop(Refs, Pres, MatchFun, FailCB, Cert) -> Refs). +to_lower_ascii({ip,_}=X) -> X; +to_lower_ascii({iPAddress,_}=X) -> X; to_lower_ascii(S) when is_list(S) -> lists:map(fun to_lower_ascii/1, S); to_lower_ascii({T,S}) -> {T, to_lower_ascii(S)}; to_lower_ascii(C) when $A =< C,C =< $Z -> C + ($a-$A); |