From 5854f07a820a9caf3bb35f383aa5038b2a12b44b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 1 Jan 2019 14:41:21 +0000
Subject: [PATCH] 01_FHEMWEB.pm: allowe mulitLine devStateIcon perl code (Forum
 #94434)

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

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index 07efc0aa6..de4ff0b05 100644
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -2787,7 +2787,7 @@ FW_dev2image($;$)
   my (undef, $rstate) = ReplaceEventMap($name, [undef, $state], 0);
 
   my ($icon, $rlink);
-  if(defined($devStateIcon) && $devStateIcon =~ m/^{.*}$/) {
+  if(defined($devStateIcon) && $devStateIcon =~ m/^{.*}$/s) {
     my ($html, $link) = eval $devStateIcon;
     Log3 $FW_wname, 1, "devStateIcon $name: $@" if($@);
     return ($html, $link, 1) if(defined($html) && $html =~ m/^<.*>$/s);
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index b23aab9b9..854f9ba42 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2853,7 +2853,7 @@ CommandAttr($$)
     if($ra{$attrName}) {
       my ($lval,$rp,$cache) = ($attrVal, $ra{$attrName}{p}, $ra{$attrName}{c});
 
-      if($rp && $lval =~ m/$rp/) {
+      if($rp && $lval =~ m/$rp/s) {
         my $err = perlSyntaxCheck($attrVal, %{$ra{$attrName}{pv}});
         return "attr $sdev $attrName: $err" if($err);