mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

55_weco.pm: fix perl error

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16058 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2018-01-31 17:11:16 +00:00
parent 75379e82f6
commit b0834dfff1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/contrib/betateilchen/55_weco.pm
View File

@@ -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);