FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues 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 3ebf5769f4
commit 30ad3b15ac
1 changed files with 2 additions and 2 deletions
Show Stats 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 # 55_weco.pm
@ -93,7 +93,7 @@ sub weco_send($) {
my ($data, $d, $r, $o); my ($data, $d, $r, $o);
my $a = $attr{$name}; 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,0,4) ne 'weco';
next if substr($key,4,1) ~~ ["I"]; next if substr($key,4,1) ~~ ["I"];
$key = substr($key,4,length($key)-4); $key = substr($key,4,length($key)-4);