Fehlermeldung im LOG: MQTT_GENERIC_BRIDGE

Begonnen von ToKa, 11 Januar 2021, 08:46:40

Vorheriges Thema - Nächstes Thema

ToKa

Hallo zusammen,

ich erhalte im Log beim Neustart von fhem folgende Fehlermeldung:

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
RaspberryPi3 mit RaZberry2 und Conbee II
Fibaro: FGWPE/F-101 Switch & FIBARO System FGWPE/F Wall Plug Gen5, FGSD002 Smoke Sensor
EUROtronic: SPIRIT Wall Radiator Thermostat Valve Control
Shelly2.5 Rollladenaktoren
Zipato Bulb 2, Osram und InnrLight

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.
Pi 3B, Alexa, CUL868+Selbstbau 1/2λ-Dipol-Antenne, USB Optolink / Vitotronic, Debmatic und HM / HmIP Komponenten, Rademacher Duofern Jalousien, Fritz!Dect Thermostaten, Proteus

ToKa

RaspberryPi3 mit RaZberry2 und Conbee II
Fibaro: FGWPE/F-101 Switch & FIBARO System FGWPE/F Wall Plug Gen5, FGSD002 Smoke Sensor
EUROtronic: SPIRIT Wall Radiator Thermostat Valve Control
Shelly2.5 Rollladenaktoren
Zipato Bulb 2, Osram und InnrLight

Nestor

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

--- - 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.
Maintainer: MQTT_GENERIC_BRIDGE, SYSMON, SMARTMON, systemd_watchdog, MQTT, MQTT_DEVICE, MQTT_BRIDGE
Contrib: dev_proxy