Another Bugfix for memory leak [rt.cpan.org #57990] #86

cpan-authors · Mar 27, 2018 · d706e65 · d706e65
1 parent b38b7d4
commit d706e65
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/IPC/Run.pm b/lib/IPC/Run.pm
@@ -1144,6 +1144,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};
+        }
+    }
 }
 
 ##