aboutsummaryrefslogtreecommitdiffstats
path: root/src/cowboy_req.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/cowboy_req.erl')
-rw-r--r--src/cowboy_req.erl12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/cowboy_req.erl b/src/cowboy_req.erl
index 79aa44d..c800595 100644
--- a/src/cowboy_req.erl
+++ b/src/cowboy_req.erl
@@ -579,12 +579,12 @@ has_body(Req) ->
%% and the body hasn't been read at the time of the call.
-spec body_length(Req) -> {undefined | non_neg_integer(), Req} when Req::req().
body_length(Req) ->
- case lists:keymember(<<"transfer-encoding">>, 1, Req#http_req.headers) of
- true ->
- {undefined, Req};
- false ->
- {ok, Length, Req2} = parse_header(<<"content-length">>, Req, 0),
- {Length, Req2}
+ case parse_header(<<"transfer-encoding">>, Req) of
+ {ok, [<<"identity">>], Req2} ->
+ {ok, Length, Req3} = parse_header(<<"content-length">>, Req2, 0),
+ {Length, Req3};
+ {ok, _, Req2} ->
+ {undefined, Req2}
end.
%% @doc Initialize body streaming and set custom decoding functions.