You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@couchdb.apache.org by fd...@apache.org on 2012/01/23 00:43:14 UTC
[48/50] git commit: add support of erlang R15B in oauth.
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 <be...@apache.org>
Authored: Mon Jan 2 17:39:01 2012 +0100
Committer: benoitc <be...@apache.org>
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 ->