simon/ezcurl
1
0
Fork 0
mirror of https://github.com/c-cube/ezcurl.git synced 2025-12-05 19:00:34 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: global initialization logic is now hidden behind a mutex

Browse source
This commit is contained in:
Simon Cruanes 2023-11-24 23:52:17 -05:00
parent 46dc012356
commit d41eb2ceb4
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/core/Ezcurl_core.ml
View file

@ -71,12 +71,19 @@ end
type t = Curl.t type t = Curl.t
let _init = let _init =
lazy let initialized = ref false in
(Curl.global_init Curl.CURLINIT_GLOBALALL; let mutex = Mutex.create () in
at_exit Curl.global_cleanup) fun () ->
Mutex.lock mutex;
if not !initialized then (
initialized := true;
Curl.global_init Curl.CURLINIT_GLOBALALL;
at_exit Curl.global_cleanup
);
Mutex.unlock mutex
let make ?(set_opts = fun _ -> ()) () : t = let make ?(set_opts = fun _ -> ()) () : t =
Lazy.force _init; _init ();
let c = Curl.init () in let c = Curl.init () in
Gc.finalise Curl.cleanup c; Gc.finalise Curl.cleanup c;
set_opts c; set_opts c;