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

git-svn-id: https://svn.fhem.de/fhem/trunk@11254 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2016-04-16 19:03:49 +00:00
parent aa28f60af9
commit 7ca7e6d7ad
1 changed files with 1 additions and 1 deletions
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -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);