From 520698b6fc33e75d288b05b498223b269c30ef2c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 9 Apr 2017 11:30:04 +0000
Subject: [PATCH] 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
---
 fhem/FHEM/16_STACKABLE.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/16_STACKABLE.pm b/fhem/FHEM/16_STACKABLE.pm
index 328d22567..078438a92 100644
--- a/fhem/FHEM/16_STACKABLE.pm
+++ b/fhem/FHEM/16_STACKABLE.pm
@@ -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);