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

fix: do not die if we fail to block a signal

Browse source
This commit is contained in:
Simon Cruanes 2025-03-13 10:45:21 -04:00
parent c51a0a6bd4
commit dd88008a0a
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/worker_loop_.ml
View file

@ -105,7 +105,7 @@ let with_handler ~ops:_ self f = f ()
let worker_loop (type st) ~block_signals ~(ops : st ops) (self : st) : unit = let worker_loop (type st) ~block_signals ~(ops : st ops) (self : st) : unit =
if block_signals then if block_signals then
List.iter List.iter
(fun signal -> Sys.set_signal signal Sys.Signal_ignore) (fun signal -> try Sys.set_signal signal Sys.Signal_ignore with _ -> ())
[ [
Sys.sigterm; Sys.sigterm;
Sys.sigpipe; Sys.sigpipe;