Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

fhem.pl: fix for perl 5.24 (Forum #64568)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@13142 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2017-01-18 14:23:53 +00:00
parent 807989a9f0
commit 8fd9909fd9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fhem.pl
View File

@ -4528,7 +4528,8 @@ notifyRegexpChanged($$)
map { (m/^\(?([A-Za-z0-9\.\_]+(?:\.[\+\*])?)(?::.*)?\)?$/ && map { (m/^\(?([A-Za-z0-9\.\_]+(?:\.[\+\*])?)(?::.*)?\)?$/ &&
($defs{$1} || devspec2array($1) ne $1)) ? $1 : ""} @list2; ($defs{$1} || devspec2array($1) ne $1)) ? $1 : ""} @list2;
if(@list && int(@list) == int(@list2)) { if(@list && int(@list) == int(@list2)) {
@list = keys { map { $_ => 1} @list }; # remove duplicates my %h = map { $_ => 1 } @list;
@list = keys %h; # remove duplicates
$hash->{NOTIFYDEV} = join(",", @list); $hash->{NOTIFYDEV} = join(",", @list);
} else { } else {
delete($hash->{NOTIFYDEV}); delete($hash->{NOTIFYDEV});