add support of erlang R15B in oauth.
Project: http://git-wip-us.apache.org/repos/asf/couchdb/repo Commit: http://git-wip-us.apache.org/repos/asf/couchdb/commit/adb62ce3 Tree: http://git-wip-us.apache.org/repos/asf/couchdb/tree/adb62ce3 Diff: http://git-wip-us.apache.org/repos/asf/couchdb/diff/adb62ce3 Branch: refs/heads/COUCHDB-1342 Commit: adb62ce3a8cff25af7d0329e1a3790c389ad74e1 Parents: 389142e Author: benoitc <[email protected]> Authored: Mon Jan 2 17:39:01 2012 +0100 Committer: benoitc <[email protected]> Committed: Mon Jan 2 17:39:01 2012 +0100 ---------------------------------------------------------------------- src/erlang-oauth/oauth_uri.erl | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/couchdb/blob/adb62ce3/src/erlang-oauth/oauth_uri.erl ---------------------------------------------------------------------- diff --git a/src/erlang-oauth/oauth_uri.erl b/src/erlang-oauth/oauth_uri.erl index 5023f98..aebf093 100644 --- a/src/erlang-oauth/oauth_uri.erl +++ b/src/erlang-oauth/oauth_uri.erl @@ -9,6 +9,8 @@ normalize(URI) -> case http_uri:parse(URI) of + {ok, {Scheme, UserInfo, Host, Port, Path, _Query}} -> % R15B + normalize(Scheme, UserInfo, string:to_lower(Host), Port, [Path]); {Scheme, UserInfo, Host, Port, Path, _Query} -> normalize(Scheme, UserInfo, string:to_lower(Host), Port, [Path]); Else ->
