From cfe1e5607fe8ad07879d93f982640ae67772ac4e Mon Sep 17 00:00:00 2001
From: waynieack <wayne@razorcla.ws>
Date: Fri, 18 Nov 2016 06:40:16 -0600
Subject: [PATCH] Fixed memory leak for TCP write socket

---
 lib/HARMON.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/HARMON.pm b/lib/HARMON.pm
index a2f392d83..31fb0eb3c 100755
--- a/lib/HARMON.pm
+++ b/lib/HARMON.pm
@@ -926,6 +926,7 @@ sub check_for_data {
     }
 
     if ( $connecttype eq 'tcp' ) {
+        $main::Socket_Ports{ "$instance" . '_sender' }{data} = undef;
         if ( $Socket_Items{$instance}{'socket'}->active ) {
             $NewCmd =
               uc(