mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
fhem.pl: fix for perl 5.24 (Forum #64568)
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@13142 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
807989a9f0
commit
8fd9909fd9
3
fhem.pl
3
fhem.pl
@ -4528,7 +4528,8 @@ notifyRegexpChanged($$)
|
||||
map { (m/^\(?([A-Za-z0-9\.\_]+(?:\.[\+\*])?)(?::.*)?\)?$/ &&
|
||||
($defs{$1} || devspec2array($1) ne $1)) ? $1 : ""} @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);
|
||||
} else {
|
||||
delete($hash->{NOTIFYDEV});
|
||||
|
Loading…
x
Reference in New Issue
Block a user