FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 01:14:19 +00:00
Code Issues Releases Wiki Activity

HMCCU: Bugfix for memory leak

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12777 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fhemzap 2016-12-14 19:13:13 +00:00
parent cad5d3506f
commit b9e36c1f16
2 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- bugfix: 88_HMCCU: Fixed memory leak in RPC server
- feature: 01_FHEMWEB: Dump "Probably associated with" in Raw definition - feature: 01_FHEMWEB: Dump "Probably associated with" in Raw definition
- bugfix: 93_DbRep: added balance diff to diffValue, balance diff to next - bugfix: 93_DbRep: added balance diff to diffValue, balance diff to next
period if value is 0 between two periods with values period if value is 0 between two periods with values

20
fhem/FHEM/88_HMCCU.pm
View File

@ -4742,14 +4742,9 @@ sub HMCCU_EncodeEPDisplay ($)
my $hmccu_child; my $hmccu_child;
# Queue file # Queue file
my $queue;
my %child_queue; my %child_queue;
my $cpqueue = \%child_queue; my $cpqueue = \%child_queue;
# In-Memory queue
my @evqueue;
my $evq_lock = 0;
# Statistic data of child process # Statistic data of child process
my %child_hash = ( my %child_hash = (
"total", 0, "total", 0,
@ -4783,12 +4778,6 @@ sub HMCCU_CCURPC_Write ($$)
# SUBPROCESS # SUBPROCESS
HMCCU_QueueEnq ($cpqueue, $et."|".$msg); HMCCU_QueueEnq ($cpqueue, $et."|".$msg);
if (!$evq_lock) {
$evq_lock = 1;
push (@evqueue, $et."|".$msg);
$evq_lock = 0;
}
# SUBPROCESS # SUBPROCESS
# Log3 $name, 1, "CCURPC: Write $et $msg"; # Log3 $name, 1, "CCURPC: Write $et $msg";
# my $bytes = $hmccu_child->writeToParent ($et."|".$msg); # my $bytes = $hmccu_child->writeToParent ($et."|".$msg);
@ -5096,15 +5085,6 @@ sub HMCCU_CCURPC_GetEventsCB ($$)
$cb = "unknown" if (!defined ($cb)); $cb = "unknown" if (!defined ($cb));
Log3 $name, 1, "CCURPC: $cb GetEvents"; Log3 $name, 1, "CCURPC: $cb GetEvents";
if (scalar (@evqueue) > 0 && !$evq_lock) {
$evq_lock = 1;
@result = @evqueue;
@evqueue = ();
$evq_lock = 0;
return \@result;
}
return undef; return undef;
} }