Merge pull request #835 from waynieack/Harmon

Fixed memory leak for TCP write socket for Harmon Module
hollie · Feb 2, 2022 · 8a98303 · 8a98303
2 parents 61d46c8 + eeb0704
commit 8a98303
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/HARMON.pm b/lib/HARMON.pm
@@ -911,6 +911,7 @@ sub check_for_data {
     }
 
     if ( $connecttype eq 'tcp' ) {
+        $main::Socket_Ports{ "$instance" . '_sender' }{data} = undef;
         if ( $Socket_Items{$instance}{'socket'}->active ) {
             $NewCmd = uc( unpack( 'H*', ( $Socket_Items{$instance}{'socket'}->said ) ) );
         }