From aeb614640b98e85c8cdb6c20f54761b154d610d0 Mon Sep 17 00:00:00 2001
From: benoitc <benoitc@apache.org>
Date: Mon, 2 Jan 2012 17:39:01 +0100
Subject: [PATCH 1/1] add support of erlang R15B in oauth.

---
 src/oauth_uri.erl |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/oauth_uri.erl b/src/oauth_uri.erl
index 5c33a1e..7d51bba 100644
--- a/src/oauth_uri.erl
+++ b/src/oauth_uri.erl
@@ -7,6 +7,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 ->
-- 
1.7.10.1