00_CUL.pm: CUL_MAX fix for readanswer (Forum #36541)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8464 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-04-23 06:03:20 +00:00
parent 6258369458
commit 6fc0034a5a

View File

@@ -542,6 +542,7 @@ CUL_ReadAnswer($$$$)
$mculdata = $2; $mculdata = $2;
(undef, $line) = CUL_prefix(0, $ohash, $line); # Delete prefix (undef, $line) = CUL_prefix(0, $ohash, $line); # Delete prefix
if($regexp && $line !~ m/$regexp/) { if($regexp && $line !~ m/$regexp/) {
$line =~ s/[\n\r]+//g;
CUL_Parse($ohash, $hash, $ohash->{NAME}, $line); CUL_Parse($ohash, $hash, $ohash->{NAME}, $line);
} else { } else {
return (undef, $line); return (undef, $line);