From 3c4c9afa7dcfe523f28199e62ce31a65491e9f25 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 3 Aug 2020 07:18:19 +0000
Subject: [PATCH] 01_FHEMWEB.pm: fix perl 5.30 unescaped { warning (Forum
 #113311)

git-svn-id: https://svn.fhem.de/fhem/trunk@22527 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/01_FHEMWEB.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index 37d49ff82..e317eedde 100644
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -3521,7 +3521,8 @@ FW_log($$)
   );
 
   $fmt =~ s/%([^" ]*)/defined($cp{$1}) ? $cp{$1} : "%$1"/ge;
-  $fmt =~ s/%{([^" ]*)}/defined($FW_httpheader{$1}) ?$FW_httpheader{$1}:"$1"/ge;
+  $fmt =~ s/%\{([^" ]*)\}/
+        defined($FW_httpheader{$1}) ? $FW_httpheader{$1} : "%{$1}" /gex;
 
   my $ld = AttrVal($FW_wname, "logDevice", undef);
   CallFn($ld, "LogFn", $defs{$ld}, $fmt) if($defs{$ld});