Unix resource leak in wait()

[gaborcsardi]

waitpipe fds are not closed on interrupt.

[gaborcsardi]

(It would be worth looking at the other possible interrupts as well, to see if any resources are leaked.)

[gaborcsardi]

More precisely:

ps::ps_num_fds(ps::ps_handle())
#> [1] 3

p <- process$new("sleep", "10000", poll_connection = FALSE)
ps::ps_num_fds(ps::ps_handle())
#> [1] 3

p$wait()
#> ^C

ps::ps_num_fds(ps::ps_handle())
#> [1] 5