From 5a8f01b9225bb2fec59af6ad7237e6b73c64e1ed Mon Sep 17 00:00:00 2001 From: =?utf8?q?Nicol=C3=A1s=20Ojeda=20B=C3=A4r?= Date: Sun, 18 Feb 2018 19:39:19 +0100 Subject: [PATCH] Fix --- curl-helper.c | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/curl-helper.c b/curl-helper.c index b079222..e72373f 100644 --- a/curl-helper.c +++ b/curl-helper.c @@ -4004,12 +4004,10 @@ value caml_curl_multi_wait(value v_multi) caml_enter_blocking_section(); ret = curl_multi_wait(multi_handle, NULL, 0, 1000, &numfds); - if (ret != CURLM_OK) { - caml_leave_blocking_section(); - caml_failwith("caml_curl_multi_wait"); - } caml_leave_blocking_section(); - CAMLreturn(Val_bool(numfds == 0)); + if (ret != CURLM_OK) caml_failwith("caml_curl_multi_wait"); + + CAMLreturn(Val_bool(numfds != 0)); } value caml_curl_multi_add_handle(value v_multi, value v_easy) -- 2.11.4.GIT