add support of erlang R15B in oauth.
diff --git a/oauth_uri.erl b/oauth_uri.erl
index 5023f98..aebf093 100644
--- a/oauth_uri.erl
+++ b/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 ->