File p1_utils-1.0.6-fix-p1_http.patch of Package p1_utils

Overview Repositories Revisions Requests Users Attributes Meta

File p1_utils-1.0.6-fix-p1_http.patch of Package p1_utils (Revision 096d59ec6e16151a253b6a234d144e14)

Currently displaying revision 096d59ec6e16151a253b6a234d144e14 , Show latest

diff -Ndurp p1_utils-1.0.6/src/p1_http.erl p1_utils-1.0.6-fix-p1_http/src/p1_http.erl
--- p1_utils-1.0.6/src/p1_http.erl	2016-11-25 14:05:40.000000000 +0200
+++ p1_utils-1.0.6-fix-p1_http/src/p1_http.erl	2017-01-01 20:25:14.982228292 +0200
@@ -294,13 +294,8 @@ post(URL, Body) ->
 %% @see request/4
 -spec post(string(), headers(), string()) -> result().
 post(URL, Hdrs, Body) ->
-    NewHdrs = case [X
-		    || {X, _} <- Hdrs,
-		       str:to_lower(X) == <<"content-type">>]
-		  of
-		[] ->
-		    [{<<"content-type">>, <<"x-www-form-urlencoded">>}
-		     | Hdrs];
+    NewHdrs = case [X || {X, _} <- Hdrs, to_lower(X) =:= <<"content-type">>] of
+		[] -> [{<<"content-type">>, <<"x-www-form-urlencoded">>} | Hdrs];
 		_ -> Hdrs
 	      end,
     request(post, URL, NewHdrs, Body).
@@ -356,3 +351,5 @@ request(Method, URL, Hdrs, Body) ->
 %                     When making an asynchronous request the body will always be received as a binary.
 % lhttpc: always binary
 
+to_lower(B) when is_binary(B) -> to_lower(binary_to_list(B));
+to_lower(S) -> string:to_lower(S).

Places

File p1_utils-1.0.6-fix-p1_http.patch of Package p1_utils (Revision 096d59ec6e16151a253b6a234d144e14)

Places