From 03d306e6d172eb272a564aa8626d4554d1046455 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Fri, 3 Jul 2020 11:02:59 +0200 Subject: Fix concurrent body streaming getting stuck with HTTP/2 --- src/cowboy_stream_h.erl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/cowboy_stream_h.erl') diff --git a/src/cowboy_stream_h.erl b/src/cowboy_stream_h.erl index 9f42acc..a4a1c1a 100644 --- a/src/cowboy_stream_h.erl +++ b/src/cowboy_stream_h.erl @@ -235,9 +235,13 @@ info(StreamID, Data0={data, Pid, _, _}, State0=#state{stream_body_status=Status} end, Data = erlang:delete_element(2, Data0), do_info(StreamID, Data, [Data], State); -info(StreamID, Alarm={alarm, Name, on}, State) +info(StreamID, Alarm={alarm, Name, on}, State0=#state{stream_body_status=Status}) when Name =:= connection_buffer_full; Name =:= stream_buffer_full -> - do_info(StreamID, Alarm, [], State#state{stream_body_status=blocking}); + State = case Status of + normal -> State0#state{stream_body_status=blocking}; + _ -> State0 + end, + do_info(StreamID, Alarm, [], State); info(StreamID, Alarm={alarm, Name, off}, State=#state{stream_body_pid=Pid, stream_body_status=Status}) when Name =:= connection_buffer_full; Name =:= stream_buffer_full -> _ = case Status of -- cgit v1.2.3