From 2c7402cf7de2290e181d2afaeb801d418317c2da Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 2 Jun 2015 12:19:23 +0000
Subject: [PATCH] 00_CUL.pm: init patch by gero (Forum #37672)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8679 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_CUL.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/00_CUL.pm b/fhem/FHEM/00_CUL.pm
index f3cf2fa8c..962371934 100755
--- a/fhem/FHEM/00_CUL.pm
+++ b/fhem/FHEM/00_CUL.pm
@@ -419,10 +419,11 @@ CUL_Clear($)
   # Clear the pipe
   $hash->{RA_Timeout} = 0.1;
   for(;;) {
-    my ($err, undef) = CUL_ReadAnswer($hash, "Clear", 0, undef);
+    my ($err, undef) = CUL_ReadAnswer($hash, "Clear", 0, "wontmatch");
     last if($err);
   }
   delete($hash->{RA_Timeout});
+  $hash->{PARTIAL} = "";
 }
 
 #####################################
@@ -438,7 +439,7 @@ CUL_DoInit($)
   my ($ver, $try) = ("", 0);
   while($try++ < 3 && $ver !~ m/^V/) {
     CUL_SimpleWrite($hash, "V");
-    ($err, $ver) = CUL_ReadAnswer($hash, "Version", 0, undef);
+    ($err, $ver) = CUL_ReadAnswer($hash, "Version", 0, "^V");
     return "$name: $err" if($err && ($err !~ m/Timeout/ || $try == 3));
     $ver = "" if(!$ver);
   }