From 8b746a39b0a3fa11befa453f0f29ed251b852dab Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 10 Apr 2016 13:52:31 +0000
Subject: [PATCH] FHEMWEB.pm: remove debug. Change perlSyntaxChange regexp.
 (Forum #51744)

git-svn-id: https://svn.fhem.de/fhem/trunk@11221 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/01_FHEMWEB.pm | 1 -
 fhem/fhem.pl            | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index 2978a0d78..18160ef16 100755
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -2536,7 +2536,6 @@ FW_Notify($$)
   my $isRaw = ($h->{type} =~ m/raw/);
   $events = deviceEvents($dev, AttrVal($FW_wname, "addStateEvent",!$isRaw))
         if(!$events);
-Log 1, "C: $dn $events->[0]";
 
   if($isStatus) {
     # Why is saving this stuff needed? FLOORPLAN?
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index dcf2e7e30..9572df367 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -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/^{/);
+  return undef if($exec !~ m/^\s*{/);
 
   $exec = EvalSpecials("{return undef; $exec}", %specials);
   my $r = AnalyzePerlCommand(undef, $exec);