diff options
| -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); } |