OWX_ASYNC: fix: 'Use of each() on hash after insertion... on line 1134'-error when catching exception from task

git-svn-id: https://svn.fhem.de/fhem/trunk@5922 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ntruchsess 2014-05-21 19:28:31 +00:00
parent 71315f8c46
commit a7b1d5bd5d

View File

@ -1130,7 +1130,8 @@ sub OWX_ASYNC_RunTasks($) {
my ( $master ) = @_; my ( $master ) = @_;
my ( $owx_dev, $queue ); my ( $owx_dev, $queue );
if ($master->{STATE} eq "Active") { if ($master->{STATE} eq "Active") {
while ( ( $owx_dev, $queue ) = each %{$master->{tasks}} ) { foreach my $owx_dev (keys %{$master->{tasks}}) {
my $queue = $master->{tasks}->{$owx_dev};
if (@$queue) { if (@$queue) {
my $task = $queue->[0]; my $task = $queue->[0];
my $ret; my $ret;