From 5cd3a5b21bd00dbb2e54e58fec6b0349bf457bb0 Mon Sep 17 00:00:00 2001
From: Konrad Bucheli <kb@open.ch>
Date: Tue, 27 Mar 2018 11:22:58 +0200
Subject: [PATCH] Another Bugfix for memory leak [rt.cpan.org #57990] #86
Origin: https://github.com/kbucheli/IPC-Run/commit/d706e65d0e5dab055d9b6c8d070330fdc7b1a883
Bug: https://github.com/toddr/IPC-Run/issues/86

---
 lib/IPC/Run.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/IPC/Run.pm b/lib/IPC/Run.pm
index 2436bc5..61cdb5f 100644
--- a/lib/IPC/Run.pm
+++ b/lib/IPC/Run.pm
@@ -1135,6 +1135,12 @@ sub DESTROY {
    my IPC::Run $self = shift;
    POSIX::close $self->{DEBUG_FD} if defined $self->{DEBUG_FD};
    $self->{DEBUG_FD} = undef;
+
+   for my $kid ( @{$self->{KIDS}} ) {
+       for my $op ( @{$kid->{OPS}} ) {
+           delete $op->{FILTERS};
+       }
+   }
 }
 
 ##
-- 
2.17.0

