(Verschoben) UPNPController funktionieren nach update (fhem.pl) nicht mehr

[MichaelT]

Hallo,

ich habe die Module von KölnSolar https://forum.fhem.de/index.php/topic,118837.0.html im Einsatz und seit dem Update von gestern funktionieren sie nicht mehr (immer offline).
Wenn ich fhem.pl zurück ändere, geht es wieder.

Ggf. kann rudolfkoenig oder KölnSolar dazu was sagen.

Danke und Gruß
Michael

Code Auswählen Erweitern

fhem2@nucHome:~ $ diff fhem.pl restoreDir/update/2022-01-24/fhem.pl
22c22
< # $Id: fhem.pl 25544 2022-01-22 15:42:45Z rudolfkoenig $
---
> # $Id: fhem.pl 25450 2022-01-10 14:49:44Z rudolfkoenig $
158d157
< sub setNotifyDev($$);
277c276
< my $cvsid = '$Id: fhem.pl 25544 2022-01-22 15:42:45Z rudolfkoenig $';
---
> my $cvsid = '$Id: fhem.pl 25450 2022-01-10 14:49:44Z rudolfkoenig $';
4112,4113d4110
<         my ($order, $mname) = split(":", $m);
<         next if($modules{$mname}{LOADED}); # checked in the loop above, #125292
4114a4112,4113
>           my ($order, $mname) = split(":", $m);
>
4123d4121
<               delete($hash->{".clientArray"});
4144a4143
>           delete($hash->{".clientArray"});
5178d5176
<     my @cmRe = map { qr/^$_$/ } @mRe;  # 125292, precompile, speedup 5x for CUL
5181,5182c5179,5180
<       foreach my $re (@cmRe) {
<         if($m =~ $re) {
---
>       foreach my $re (@mRe) {
>         if($m =~ m/^$re$/) {
5355c5353
<       while($in2 =~ m/^\s*"([^"]*)"\s*:\s*(.*)$/s) { # 125340
---
>       while($in2 =~ m/^\s*"([^"]+)"\s*:\s*(.*)$/s) {
5381,5382c5379
<     } elsif($val =~ m/^((-?[0-9.]+)([eE][+-]?[0-9]+)?)(.*)$/ && # 125340
<             looks_like_number($1)) {
---
>     } elsif($val =~ m/^([0-9.-]+)(.*)$/s) {
5384c5381
<       $in = $4;
---
>       $in = $2;
5607,5619d5603
< }
<
< sub
< setNotifyDev($$)
< {
<   my ($hash, $ntfydev) = @_;
<
<   if($ntfydev) {
<     $hash->{NOTIFYDEV} = $ntfydev;
<   } else {
<     delete($hash->{NOTIFYDEV});
<   }
<   %ntfyHash = ();