From 7ca7e6d7adbd036f8a3016653d71b52d4a257d59 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 16 Apr 2016 19:03:49 +0000
Subject: [PATCH] fhem.pl: perlSyntaxCheck will check for terminating } (Forum
 #52071)

git-svn-id: https://svn.fhem.de/fhem/trunk@11254 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 85e68e21b..1e820af31 100755
--- 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);