diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 547414b22..7c4182643 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -685,7 +685,8 @@ AnalyzeCommandChain($$)
 
   $cmd =~ s/;;/SeMiCoLoN/g;
   @cmdList = split(";", $cmd);
-  while(my $subcmd = shift @cmdList) {
+  my $subcmd;
+  while(defined($subcmd = shift @cmdList)) {
     $subcmd =~ s/SeMiCoLoN/;/g;
     my $lret = AnalyzeCommand($c, $subcmd);
     push(@ret, $lret) if(defined($lret));