fix: workaround servers which do not understand Expect header

This commit is contained in:
Simon Cruanes 2023-02-28 11:07:20 -05:00
parent 91cfbc94ad
commit 9e7d9be5c3
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -320,7 +320,7 @@ module Make(IO : IO)
match content_size_ content, meth with
| None, _ ->
Printf.eprintf "size not known\n%!";
headers := ("transfer-encoding", "chunked") :: !headers
headers := ("expect", "") :: ("transfer-encoding", "chunked") :: !headers
| Some size , POST _ ->
Curl.set_postfieldsize self size;
| Some size, _ ->