FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-19 18:56:03 +00:00
Code Issues Releases Wiki Activity

90_at.pm: reduce perSyntaxChecking frequency.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13500 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2017-02-24 09:12:38 +00:00
parent 60d19daf8d
commit c3695868dc
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/FHEM/90_at.pm
View File

@ -79,8 +79,10 @@ at_Define($$)
} }
return "datespec is not allowed with + or *" if($abstime && ($rel || $rep)); return "datespec is not allowed with + or *" if($abstime && ($rel || $rep));
if($hash->{CL}) { # Do not check this for definition
$err = perlSyntaxCheck($command, ()); $err = perlSyntaxCheck($command, ());
return $err if($err); return $err if($err);
}
$rel = "" if(!defined($rel)); $rel = "" if(!defined($rel));
$rep = "" if(!defined($rep)); $rep = "" if(!defined($rep));

6
fhem/fhem.pl
View File

@ -1823,6 +1823,7 @@ CommandDefine($$)
$hash{NR} = $devcount++; $hash{NR} = $devcount++;
$hash{CFGFN} = $currcfgfile $hash{CFGFN} = $currcfgfile
if($currcfgfile ne AttrVal("global", "configfile", "")); if($currcfgfile ne AttrVal("global", "configfile", ""));
$hash{CL} = $cl;
# If the device wants to issue initialization gets/sets, then it needs to be # If the device wants to issue initialization gets/sets, then it needs to be
# in the global hash. # in the global hash.
@ -1836,6 +1837,7 @@ CommandDefine($$)
delete $attr{$name}; delete $attr{$name};
} else { } else {
delete $hash{CL};
$hash{TEMPORARY} = 1 if($temporary); $hash{TEMPORARY} = 1 if($temporary);
foreach my $da (sort keys (%defaultattr)) { # Default attributes foreach my $da (sort keys (%defaultattr)) { # Default attributes
CommandAttr($cl, "$name $da $defaultattr{$da}"); CommandAttr($cl, "$name $da $defaultattr{$da}");
@ -1869,10 +1871,12 @@ CommandModify($$)
$hash->{OLDDEF} = $hash->{DEF}; $hash->{OLDDEF} = $hash->{DEF};
$hash->{DEF} = $a[1]; $hash->{DEF} = $a[1];
$hash->{CL} = $cl;
my $ret = CallFn($a[0], "DefFn", $hash, my $ret = CallFn($a[0], "DefFn", $hash,
$modules{$hash->{TYPE}}->{parseParams} ? $modules{$hash->{TYPE}}->{parseParams} ?
parseParams("$a[0] $hash->{TYPE}".(defined($a[1]) ? " $a[1]":"")): parseParams("$a[0] $hash->{TYPE}".(defined($a[1]) ? " $a[1]":"")):
"$a[0] $hash->{TYPE}".(defined($a[1]) ? " $a[1]" : "")); "$a[0] $hash->{TYPE}".(defined($a[1]) ? " $a[1]" : ""));
delete $hash->{CL};
if($ret) { if($ret) {
$hash->{DEF} = $hash->{OLDDEF}; $hash->{DEF} = $hash->{OLDDEF};
} else { } else {
@ -2139,7 +2143,7 @@ CommandSetReading($$)
if($featurelevel >= 5.7) { if($featurelevel >= 5.7) {
$hash->{CL} = $cl; $hash->{CL} = $cl;
($err, @b) = ReplaceSetMagic($hash, 3, @a); ($err, @b) = ReplaceSetMagic($hash, 3, @a);
delete($hash->{CL}); delete $hash->{CL};
} }
readingsSingleUpdate($defs{$sdev}, $b[1], $b[2], 1); readingsSingleUpdate($defs{$sdev}, $b[1], $b[2], 1);
} }