16_STACKABLE.pm: Fix ReadAnswer for junk data (Forum #57806)

git-svn-id: https://svn.fhem.de/fhem/trunk@13949 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2017-04-09 11:30:04 +00:00
parent 8330f98226
commit 520698b6fc

View File

@@ -128,7 +128,13 @@ STACKABLE_IOReadFn($) # used by synchronuous get
while($buf !~ m/\n/) {
$buf .= DevIo_SimpleRead($me->{IODev}); # may block
}
$buf =~ s/^.//;
my $mName = $me->{NAME};
Log3 $mName, 5, "$mName read: $buf";
my @l = split("\n", $buf);
$buf = join("\n", grep { $_ =~ m/^\*/ } @l)."\n";
$buf =~ s/^\*//gsm;
if(AttrVal($me->{NAME},"binary",0)) {
$buf =~ s/[\r\n]//g;
return pack("H*",$buf);