Fehlermeldung im LOG: MQTT_GENERIC_BRIDGE

[ToKa]

Hallo zusammen,

ich erhalte im Log beim Neustart von fhem folgende Fehlermeldung:

Code: [Auswählen]

2021.01.11 08:38:32 1: PERL WARNING: Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/^(.*)({ <-- HERE .*})(.*)$/ at ./FHEM/10_MQTT_GENERIC_BRIDGE.pm line 1358, <$fh> line 5129.
Viele Grüße
Torsten

[amenomade]

Das ist keine Fehlermeldung sondern ein Warning, das Du ruhig ignorieren kannst.

Da muss der Modulautor noch daran arbeiten bevor zu viele Benutzer höhere Versionen von Perl installieren. Mit Perl v6 gibt es sowieso viele Neuigkeiten.

[ToKa]

Danke für die Erklärung

[Nestor]

Simple fix (I'm on Perl 5.30 btw).

Code: [Auswählen]

--- - 2021-01-12 10:20:42.151330246 +0100
+++ /srv/fhem/FHEM/10_MQTT_GENERIC_BRIDGE.pm 2021-01-12 10:20:27.387718461 +0100
@@ -362,7 +362,7 @@
 use warnings;
 
 #my $DEBUG = 1;
-my $cvsid = '$Id$';
+my $cvsid = '$Id: 10_MQTT_GENERIC_BRIDGE.pm 19737 2019-06-28 15:56:35Z hexenmeister $';
 my $VERSION = "version 1.2.6 by hexenmeister\n$cvsid";
 
 my %sets = (
@@ -1355,7 +1355,7 @@
   # 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/^(.*)(\{.*\})(.*)$/) {
     my $s1=$1; $s1='' unless defined $s1;
     my $s2=$2; $s2='' unless defined $s2;
     my $s3=$3; $s3='' unless defined $s3;


[hexenmeister]

Hallo und danke für den patch. Habe übernommen und eingecheckt.