FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-19 18:56:03 +00:00
Code Issues Releases Wiki Activity

remove bug for more current perl version

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@4762 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-01-28 17:56:56 +00:00
parent f061045902
commit 90e1958b34
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/FHEM/10_CUL_HM.pm
View File

@ -5355,7 +5355,7 @@ sub CUL_HM_setAttrIfCh($$$$) {
sub CUL_HM_noDup(@) {#return list with no duplicates sub CUL_HM_noDup(@) {#return list with no duplicates
my %all; my %all;
return "" if (scalar(@_) == 0); return "" if (scalar(@_) == 0);
$all{$_}=0 foreach (grep !/^$/,@_); $all{$_}=0 foreach (grep {defined $_ && $_ !~ m/^$/} @_);
delete $all{""}; #remove empties if present delete $all{""}; #remove empties if present
return (sort keys %all); return (sort keys %all);
} }