98_DOIF.pm: Bugfix wrong Perl-Mode with Attribute disable 0

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@20500 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Damian 2019-11-12 17:54:48 +00:00
parent 74aa023516
commit e4fee1dc9b

View File

@ -3278,12 +3278,13 @@ DOIF_Attr(@)
if (!$cmd) {
$cmd="";
$defs{$hash->{NAME}}{DEF}="##";
} else {
$cmd =~ s/(##.*\n)|(##.*$)/ /g;
$cmd =~ s/\$SELF/$hash->{NAME}/g;
}
if ($cmd eq "" or $cmd =~ /^ *\(/) {
if ($cmd =~ /^\s*(\(|$)/) {
$hash->{MODEL}="FHEM";
($msg,$err)=CmdDoIf($hash,$cmd);
} else {