fixed warnings for undef $cmd

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6111 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme1968
2014-06-14 16:11:40 +00:00
parent 5d8c0b7e82
commit 2d10dbb1d4

View File

@@ -443,7 +443,7 @@ readingsGroup_2html($)
} else {
my $cmd = lookup2($commands,$name,$d,$txt);
if( $cmd =~ m/^([\w-]*):(\S*)?$/ ) {
if( $cmd && $cmd =~ m/^([\w-]*):(\S*)?$/ ) {
my $set = $1;
my $values = $2;
@@ -566,7 +566,7 @@ readingsGroup_2html($)
if( !$devStateIcon ) {
$cmd = lookup2($commands,$name,$n,$v) if( !$devStateIcon );
if( $cmd =~ m/^([\w-]*):(\S*)?$/ ) {
if( $cmd && $cmd =~ m/^([\w-]*):(\S*)?$/ ) {
my $set = $1;
my $values = $2;
@@ -835,7 +835,7 @@ readingsGroup_Notify($$)
}
$cmd = lookup2($commands,$n,$reading,$value);
if( $cmd =~ m/^(\w.*):(\S.*)?$/ ) {
if( $cmd && $cmd =~ m/^([\w-]*):(\S*)?$/ ) {
next;
}