mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

00_CUL.pm: init patch by gero (Forum #37672)

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8679 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-06-02 12:19:23 +00:00
parent 39c214885a
commit 2c7402cf7d
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/00_CUL.pm
View File

@@ -419,10 +419,11 @@ CUL_Clear($)
# Clear the pipe # Clear the pipe
$hash->{RA_Timeout} = 0.1; $hash->{RA_Timeout} = 0.1;
for(;;) { for(;;) {
my ($err, undef) = CUL_ReadAnswer($hash, "Clear", 0, undef); my ($err, undef) = CUL_ReadAnswer($hash, "Clear", 0, "wontmatch");
last if($err); last if($err);
} }
delete($hash->{RA_Timeout}); delete($hash->{RA_Timeout});
$hash->{PARTIAL} = "";
} }
##################################### #####################################
@@ -438,7 +439,7 @@ CUL_DoInit($)
my ($ver, $try) = ("", 0); my ($ver, $try) = ("", 0);
while($try++ < 3 && $ver !~ m/^V/) { while($try++ < 3 && $ver !~ m/^V/) {
CUL_SimpleWrite($hash, "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)); return "$name: $err" if($err && ($err !~ m/Timeout/ || $try == 3));
$ver = "" if(!$ver); $ver = "" if(!$ver);
} }