FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

fhem.pl: perlSyntaxCheck will check for terminating } (Forum #52071)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11254 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-04-16 19:03:49 +00:00
parent 067b63e044
commit 213c5e4362
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/fhem.pl
View File

@ -4573,7 +4573,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/^\s*{.*}$/);
$exec = EvalSpecials("{return undef; $exec}", %specials);
my $r = AnalyzePerlCommand(undef, $exec);