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

bugfix: fix perl regex warning

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23519 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hexenmeister 2021-01-13 21:54:36 +00:00
parent bfa951a630
commit 7fd237a49b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/FHEM/10_MQTT_GENERIC_BRIDGE.pm
View File

@ -30,6 +30,10 @@
# #
# CHANGE LOG # 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 # 12.01.2021 1.2.7
# improvement: Anhaengigkeit zu 00_MQTT.pm dynamisch umgebaut # improvement: Anhaengigkeit zu 00_MQTT.pm dynamisch umgebaut
# Damit wird kein MQTT.pm mehr gebraucht (und damit kein Module::Pluggable), # Damit wird kein MQTT.pm mehr gebraucht (und damit kein Module::Pluggable),
@ -369,7 +373,7 @@ use warnings;
#my $DEBUG = 1; #my $DEBUG = 1;
my $cvsid = '$Id$'; 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 = ( my %sets = (
); );
@ -1363,7 +1367,8 @@ sub _evalValue2($$;$$) {
# TODO : umbauen $str =~ m/^(.*)({.*})(.*)$/;; $1.$2.$3 - ok # TODO : umbauen $str =~ m/^(.*)({.*})(.*)$/;; $1.$2.$3 - ok
# TODO : Maskierte Klammern unterstuetzen? $str =~ m/^(.*)(\\{.*\\})(.*)({.*})(.*)$/;; $1.$2.$3.$4.$5 - irgendwie so # 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/^(.*)({.*})(.*)$/) {
if($str =~ m/^(.*)(\{.*\})(.*)$/) { # forum https://forum.fhem.de/index.php/topic,117659.msg1121004.html#msg1121004
my $s1=$1; $s1='' unless defined $s1; my $s1=$1; $s1='' unless defined $s1;
my $s2=$2; $s2='' unless defined $s2; my $s2=$2; $s2='' unless defined $s2;
my $s3=$3; $s3='' unless defined $s3; my $s3=$3; $s3='' unless defined $s3;