From 7fd237a49b4cc227f53649f90eb8ece76dd9a44c Mon Sep 17 00:00:00 2001 From: hexenmeister Date: Wed, 13 Jan 2021 21:54:36 +0000 Subject: [PATCH] bugfix: fix perl regex warning git-svn-id: https://svn.fhem.de/fhem/trunk@23519 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_MQTT_GENERIC_BRIDGE.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/10_MQTT_GENERIC_BRIDGE.pm b/fhem/FHEM/10_MQTT_GENERIC_BRIDGE.pm index f70c3c78c..a44397bf2 100644 --- a/fhem/FHEM/10_MQTT_GENERIC_BRIDGE.pm +++ b/fhem/FHEM/10_MQTT_GENERIC_BRIDGE.pm @@ -30,6 +30,10 @@ # # CHANGE LOG # +# 13.01.2021 1.2.8 +# bugfix : fix perl regex warning - Geschw. Klammern maskieren +# (forum https://forum.fhem.de/index.php/topic,117659.msg1121004.html#msg1121004) +# # 12.01.2021 1.2.7 # improvement: Anhaengigkeit zu 00_MQTT.pm dynamisch umgebaut # Damit wird kein MQTT.pm mehr gebraucht (und damit kein Module::Pluggable), @@ -369,7 +373,7 @@ use warnings; #my $DEBUG = 1; my $cvsid = '$Id$'; -my $VERSION = "version 1.2.7 by hexenmeister\n$cvsid"; +my $VERSION = "version 1.2.8 by hexenmeister\n$cvsid"; my %sets = ( ); @@ -1363,7 +1367,8 @@ sub _evalValue2($$;$$) { # TODO : umbauen $str =~ m/^(.*)({.*})(.*)$/;; $1.$2.$3 - ok # TODO : Maskierte Klammern unterstuetzen? $str =~ m/^(.*)(\\{.*\\})(.*)({.*})(.*)$/;; $1.$2.$3.$4.$5 - irgendwie so #if($str =~ m/^{.*}$/) { - if($str =~ m/^(.*)({.*})(.*)$/) { + #if($str =~ m/^(.*)({.*})(.*)$/) { + if($str =~ m/^(.*)(\{.*\})(.*)$/) { # forum https://forum.fhem.de/index.php/topic,117659.msg1121004.html#msg1121004 my $s1=$1; $s1='' unless defined $s1; my $s2=$2; $s2='' unless defined $s2; my $s3=$3; $s3='' unless defined $s3;