From ae2d71eaca55a4c153039d3823f6935b250f1e46 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 9 Aug 2015 14:35:41 +0000
Subject: [PATCH] 98_weblink.pm: enable multiline perl commands (Forum #39378)

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

diff --git a/fhem/FHEM/98_weblink.pm b/fhem/FHEM/98_weblink.pm
index db525f2a0..826770d71 100755
--- a/fhem/FHEM/98_weblink.pm
+++ b/fhem/FHEM/98_weblink.pm
@@ -92,7 +92,7 @@ weblink_FwFn($$$$)
 
   my $attr = AttrVal($d, "htmlattr", "");
   if($wltype eq "htmlCode") {
-    $link = AnalyzePerlCommand(undef, $link) if($link =~ m/^{(.*)}$/);
+    $link = AnalyzePerlCommand(undef, $link) if($link =~ m/^{(.*)}$/s);
     $ret = $link;
 
   } elsif($wltype eq "link") {