FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

01_FHEMWEB.pm: fix perl 5.30 unescaped { warning (Forum #113311)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22527 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2020-08-03 07:18:19 +00:00
parent b6e42d2140
commit 3c4c9afa7d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fhem/FHEM/01_FHEMWEB.pm
View File

@ -3521,7 +3521,8 @@ FW_log($$)
); );
$fmt =~ s/%([^" ]*)/defined($cp{$1}) ? $cp{$1} : "%$1"/ge; $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); my $ld = AttrVal($FW_wname, "logDevice", undef);
CallFn($ld, "LogFn", $defs{$ld}, $fmt) if($defs{$ld}); CallFn($ld, "LogFn", $defs{$ld}, $fmt) if($defs{$ld});