mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
fhem.pl: perlSyntaxCheck mods (Forum #51744)
git-svn-id: https://svn.fhem.de/fhem/trunk@11191 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
7bfead1f5d
commit
fa82f4624c
@ -4571,7 +4571,7 @@ perlSyntaxCheck($%)
|
||||
|
||||
my $psc = AttrVal("global", "perlSyntaxCheck", ($featurelevel>5.7) ? 1 : 0);
|
||||
return undef if(!$psc || !$init_done);
|
||||
return undef if($exec !~ m/^{.*}$/s);
|
||||
return undef if($exec !~ m/^{/);
|
||||
|
||||
$exec = EvalSpecials("{return undef; $exec}", %specials);
|
||||
my $r = AnalyzePerlCommand(undef, $exec);
|
||||
|
Loading…
Reference in New Issue
Block a user