mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-06 03:05:30 -05:00
fix: do not die if we fail to block a signal
This commit is contained in:
parent
c51a0a6bd4
commit
dd88008a0a
1 changed files with 1 additions and 1 deletions
|
|
@ -105,7 +105,7 @@ let with_handler ~ops:_ self f = f ()
|
|||
let worker_loop (type st) ~block_signals ~(ops : st ops) (self : st) : unit =
|
||||
if block_signals then
|
||||
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.sigpipe;
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue