From 30ad3b15ac6ac4b46654ffbc67c1ec25d70934ab Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Wed, 31 Jan 2018 17:11:16 +0000
Subject: [PATCH] 55_weco.pm: fix perl error

git-svn-id: https://svn.fhem.de/fhem/trunk@16058 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/betateilchen/55_weco.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/contrib/betateilchen/55_weco.pm b/fhem/contrib/betateilchen/55_weco.pm
index 81ab9ecd0..25302134d 100644
--- a/fhem/contrib/betateilchen/55_weco.pm
+++ b/fhem/contrib/betateilchen/55_weco.pm
@@ -1,4 +1,4 @@
-# $Id: 55_weco.pm 10558 2016-01-17 14:17:58Z betateilchen $
+# $Id$
 ####################################################################################################
 #
 #	55_weco.pm
@@ -93,7 +93,7 @@ sub weco_send($) {
 
 	my ($data, $d, $r, $o);
 	my $a = $attr{$name};
-	while ( my ($key, $value) = each($a) ) {
+    while ( my ($key, $value) = each(%{$a}) ) {
 		next if substr($key,0,4) ne 'weco';
 		next if substr($key,4,1) ~~ ["I"];
 		$key = substr($key,4,length($key)-4);