From e728effc2a17d7d109b344c851d8fd2ed9fdb064 Mon Sep 17 00:00:00 2001 From: matscher Date: Wed, 12 Mar 2014 19:05:33 +0000 Subject: [PATCH] clean up code to avoid "Use of uninitialized value in concatenation.." git-svn-id: https://svn.fhem.de/fhem/trunk@5207 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/09_CUL_FHTTK.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/09_CUL_FHTTK.pm b/fhem/FHEM/09_CUL_FHTTK.pm index c7433426d..b19db240a 100644 --- a/fhem/FHEM/09_CUL_FHTTK.pm +++ b/fhem/FHEM/09_CUL_FHTTK.pm @@ -148,17 +148,20 @@ CUL_FHTTK_Set($@) my $name = shift(@a); - # return here to supress set at cul_fhttk devices + # suppress SET option if(defined($attr{$name}) && defined($attr{$name}{"model"})) { if($attr{$name}{"model"} ne "dummy") { return $ret } } - + else { + return $ret; + } + my $opt = shift @a; my $value = join("", @a); - Log3 $name, 5, "$name $opt a ist $a[0] und $a[1] und value: $value"; + Log3 $name, 5, "$name option: $opt and value: $value"; if(!defined($fhttfk_c2b{$opt})) { my @cList = keys %fhttfk_c2b;