Merge pull request #26 from waynieack/Harmon

Harmon
waynieack · Apr 21, 2021 · ca118e5 · ca118e5
2 parents d096140 + eeb0704
commit ca118e5
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 ) ) );
         }