From d5254325961adbe35bebb06b3bcf3615bfdb20eb Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 23 Jan 2019 21:42:13 +0000
Subject: [PATCH] fhem.pl: fix for Dispatch after [NEXT] patch (Forum #95446)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18393 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 contrib/CULsim.pl | 2 +-
 fhem.pl           | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/CULsim.pl b/contrib/CULsim.pl
index 2abff95dc..1053dab92 100644
--- a/contrib/CULsim.pl
+++ b/contrib/CULsim.pl
@@ -100,7 +100,7 @@ for(;;) {
         push @msg, $stars.$cmd;
 
       } elsif($cmd eq "?") {
-        push @msg, $stars."? (? is unknown) Use one of t u x";
+        push @msg, $stars."? (? is unknown) Use one of A B b C E e F f G h i K l M m N R T t U u V W X x Y Z";
 
       } elsif($cmd eq "t") {
         push @msg, $stars.sprintf("%08X", (time()%86400)*125);
diff --git a/fhem.pl b/fhem.pl
index 687c8ff81..8e1d43fd1 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -3880,7 +3880,7 @@ Dispatch($$;$$)
     my @tfound = &{$modules{$m}{ParseFn}}($hash,$dmsg);
     use strict "refs"; $readingsUpdateDelayTrigger = 0;
     $parserMod = $m;
-    if(@tfound && $tfound[0]) {
+    if(int(@tfound) && defined($tfound[0])) {
       if($tfound[0] && $tfound[0] eq "[NEXT]") { # not a goodDeviceName, #95446
         shift(@tfound);
         push @found, @tfound;                   # continue feeding other modules