From 8fd9909fd9a2a1291ac8e65c52f6f500b0ff8ceb Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 18 Jan 2017 14:23:53 +0000
Subject: [PATCH] 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
---
 fhem.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/fhem.pl b/fhem.pl
index e8845c36d..85527ff88 100755
--- a/fhem.pl
+++ b/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});