From 19c806e01682a6449c95822d950d2fc93fcbc80a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 12 May 2017 05:48:17 +0000
Subject: [PATCH] fhem.pl: some cautinary changes (Forum #57806)

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

diff --git a/fhem/contrib/CULsim.pl b/fhem/contrib/CULsim.pl
index 827b8ed1c..2abff95dc 100644
--- a/fhem/contrib/CULsim.pl
+++ b/fhem/contrib/CULsim.pl
@@ -96,6 +96,9 @@ for(;;) {
       } elsif($cmd eq "T01"){
         push @msg, $stars."0000";
 
+      } elsif($cmd =~ m/^is/){
+        push @msg, $stars.$cmd;
+
       } elsif($cmd eq "?") {
         push @msg, $stars."? (? is unknown) Use one of t u x";
 
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index c4c8a038c..a5f876fb1 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -1732,7 +1732,8 @@ DoSet(@)
   if(defined($hash->{".triggerUsed"}) && $hash->{".triggerUsed"} == 0) {
     shift @a;
     # set arg if the module did not triggered events
-    my $arg = join(" ", @a) if(!$hash->{CHANGED} || !int(@{$hash->{CHANGED}}));
+    my $arg;
+    $arg = join(" ", @a) if(!$hash->{CHANGED} || !int(@{$hash->{CHANGED}}));
     DoTrigger($dev, $arg, 0);
   }
   delete($hash->{".triggerUsed"});
@@ -3808,7 +3809,8 @@ ReplaceEventMap($$$)
   }
 
   my $dname = shift @{$str} if(!$dir);
-  my $nstr = join(" ", @{$str}) if(!$dir);
+  my $nstr;
+  $nstr = join(" ", @{$str}) if(!$dir);
 
   my $changed;
   foreach my $rv (@emList) {