diff --git a/src/core/Ezcurl_core.ml b/src/core/Ezcurl_core.ml index 09999c3..f26216d 100644 --- a/src/core/Ezcurl_core.ml +++ b/src/core/Ezcurl_core.ml @@ -317,6 +317,8 @@ module Make(IO : IO) let resp_headers_done = ref false in (* once we get "\r\n" header line *) Curl.set_url self url; begin match meth with + | POST [] when (content <> None) -> + Curl.set_post self true | POST l -> Curl.set_httppost self l; | GET -> Curl.set_httpget self true; | PUT -> Curl.set_put self true;