diff options
author | Adam Kocoloski <kocolosk@apache.org> | 2009-07-17 23:58:35 +0000 |
---|---|---|
committer | Adam Kocoloski <kocolosk@apache.org> | 2009-07-17 23:58:35 +0000 |
commit | 7264706c21a2533bc3244d01c168085614d13968 (patch) | |
tree | fe81b5d6f57700d485237d2e4f9b81c954084013 /src/ibrowse/ibrowse_lib.erl | |
parent | f5d06318806e57f72ec88f1c27114db8d402c1e5 (diff) |
update ibrowse to 1.5.1+
git-svn-id: https://svn.apache.org/repos/asf/couchdb/trunk@795278 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'src/ibrowse/ibrowse_lib.erl')
-rw-r--r-- | src/ibrowse/ibrowse_lib.erl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/ibrowse/ibrowse_lib.erl b/src/ibrowse/ibrowse_lib.erl index 7567a6a6..6c7b1546 100644 --- a/src/ibrowse/ibrowse_lib.erl +++ b/src/ibrowse/ibrowse_lib.erl @@ -49,7 +49,7 @@ drv_ue(Str, Port) -> %% @spec url_encode(Str) -> UrlEncodedStr %% Str = string() %% UrlEncodedStr = string() -url_encode(Str) when list(Str) -> +url_encode(Str) when is_list(Str) -> url_encode_char(lists:reverse(Str), []). url_encode_char([X | T], Acc) when X >= $0, X =< $9 -> @@ -70,7 +70,7 @@ url_encode_char([], Acc) -> d2h(N) when N<10 -> N+$0; d2h(N) -> N+$a-10. -decode_rfc822_date(String) when list(String) -> +decode_rfc822_date(String) when is_list(String) -> case catch decode_rfc822_date_1(string:tokens(String, ", \t\r\n")) of {'EXIT', _} -> {error, invalid_date}; @@ -177,9 +177,9 @@ dec2hex(M,N,Ack) -> dec2hex(M-1,N bsr 4,[d2h(N band 15)|Ack]). %% @spec encode_base64(In) -> Out %% In = string() | binary() %% Out = string() | binary() -encode_base64(List) when list(List) -> +encode_base64(List) when is_list(List) -> encode_base64_1(list_to_binary(List)); -encode_base64(Bin) when binary(Bin) -> +encode_base64(Bin) when is_binary(Bin) -> List = encode_base64_1(Bin), list_to_binary(List). @@ -197,9 +197,9 @@ encode_base64_1(<<>>) -> %% @spec decode_base64(In) -> Out | exit({error, invalid_input}) %% In = string() | binary() %% Out = string() | binary() -decode_base64(List) when list(List) -> +decode_base64(List) when is_list(List) -> decode_base64_1(List, []); -decode_base64(Bin) when binary(Bin) -> +decode_base64(Bin) when is_binary(Bin) -> List = decode_base64_1(binary_to_list(Bin), []), list_to_binary(List). |