From d8a47b9d3538efbb0bfe1a1b9c10c8fa80bd6a0f Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 28 Jan 2014 17:56:56 +0000
Subject: [PATCH] remove bug for more current perl version

git-svn-id: https://svn.fhem.de/fhem/trunk@4762 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index ed58f1f21..450959b14 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -5355,7 +5355,7 @@ sub CUL_HM_setAttrIfCh($$$$) {
 sub CUL_HM_noDup(@) {#return list with no duplicates
   my %all;
   return "" if (scalar(@_) == 0);
-  $all{$_}=0 foreach (grep !/^$/,@_);
+  $all{$_}=0 foreach (grep {defined $_ && $_ !~ m/^$/} @_);
   delete $all{""}; #remove empties if present
   return (sort keys %all);
 }