From b864e27b65b04a9a429af411dd4a6cc42266bf96 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 9 Dec 2013 21:17:25 +0000
Subject: [PATCH] fhem.pl devspec2array bugfix

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@4351 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index df4101c8d..9356b2673 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -875,8 +875,8 @@ devspec2array($)
   foreach my $l (split(",", $name)) {   # List of elements
     my @names = sort keys %defs;
     my @res;
-    foreach my $dName (split(":FILTER=", $name)) {
-      my ($n,$op,$re) = ("DEVICE","=",$dName);
+    foreach my $dName (split(":FILTER=", $l)) {
+      my ($n,$op,$re) = ("NAME","=",$dName);
       if($dName =~ m/^([^!]*)(=|!=)(.*)$/) {
         ($n,$op,$re) = ($1,$2,$3);
         $isAttr = 1;    # Compatibility: return "" instead of $name
@@ -888,7 +888,7 @@ devspec2array($)
         next if($attr{$d} && $attr{$d}{ignore});
 
         if($op eq "eval") {
-          my $exec = EvalSpecials($n, %{{"%NAME"=>$d}});
+          my $exec = EvalSpecials($n, %{{"%DEVICE"=>$d}});
           push @res, $d if(AnalyzePerlCommand(undef, $exec));
           next;
         }