10_ZWave.pm: better UNPARSED checking (Forum #36980)

git-svn-id: https://svn.fhem.de/fhem/trunk@8581 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/FHEM/10_ZWave.pm

@@ -1523,14 +1523,16 @@ ZWave_Parse($$@)
       next;
     }
 
+    my $matched = 0;
     foreach my $k (keys %{$ptr}) {
       if($arg =~ m/^$k/) {
         my $val = $ptr->{$k};
         $val = eval $val if(index($val, '$') >= 0);
         push @event, $val if(defined($val));
+        $matched++;
       }
     }
-    push @event, "UNPARSED:$className $arg" if(!@event);
+    push @event, "UNPARSED:$className $arg" if(!$matched);
   }
 
   my $wu = $baseHash->{WakeUp};