diff options
| author | Eric Wong <e@80x24.org> | 2022-12-28 10:05:33 +0000 |
|---|---|---|
| committer | Eric Wong <mwrap-perl@80x24.org> | 2022-12-28 10:11:13 +0000 |
| commit | 264042048cd1cbc039e42b7a9ea80e80c94e7206 (patch) | |
| tree | 2bf0cde856031d913bf7ff10b5b5b311a2a94846 | |
| parent | d3adc05897729513eaa86866cd66c11319fca5ff (diff) | |
| download | mwrap-264042048cd1cbc039e42b7a9ea80e80c94e7206.tar.gz | |
And always close our write end first so we can shut down addr2line slightly sooner.
| -rw-r--r-- | lib/Devel/Mwrap/Rproxy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Devel/Mwrap/Rproxy.pm b/lib/Devel/Mwrap/Rproxy.pm index e14cd05..f5bf2cc 100644 --- a/lib/Devel/Mwrap/Rproxy.pm +++ b/lib/Devel/Mwrap/Rproxy.pm @@ -159,7 +159,7 @@ sub lookup { sub DESTROY { my ($self) = @_; - delete @$self{qw(rd wr)}; + close($_) for (delete @$self{qw(wr rd)}); waitpid(delete $self->{pid}, 0); } |