diff --git a/fhem/contrib/DS_Starter/93_Log2Syslog.pm b/fhem/contrib/DS_Starter/93_Log2Syslog.pm index b43c9a970..cdd735a85 100644 --- a/fhem/contrib/DS_Starter/93_Log2Syslog.pm +++ b/fhem/contrib/DS_Starter/93_Log2Syslog.pm @@ -570,7 +570,7 @@ sub Read { ## no critic 'comple if($data) { # parse Payload my (@load,$ocount,$msg,$tail); - if($data =~ /^(?(\d+))\s(?(.*))/sx) { # Syslog Sätze mit Octet Count -> Transmission of Syslog Messages over TCP https://tools.ietf.org/html/rfc6587 + if($data =~ /^(?(\d+?))\s(?(.*))/sx) { # Syslog Sätze mit Octet Count -> Transmission of Syslog Messages over TCP https://tools.ietf.org/html/rfc6587 Log3slog ($hash, 4, "Log2Syslog $name - Datagramm with Octet Count detected - prepare message for Parsing ... \n"); use bytes; my $i = 0; @@ -589,7 +589,7 @@ sub Read { ## no critic 'comple Log3slog ($hash, 5, "Log2Syslog $name -> LENGTH_MSG$i: ".length($msg)); Log3slog ($hash, 5, "Log2Syslog $name -> TAIL$i : $tail"); - while($tail && $tail =~ /^(?(\d+))\s(?(.*))/sx) { + while($tail && $tail =~ /^(?(\d+?))\s(?(.*))/sx) { $i++; $ocount = $+{ocount}; $tail = $+{tail};