From ecbc6c8071057e25bd39f7fd9c4a23b7c58ff8f7 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Mon, 9 Sep 2013 21:13:46 +0000
Subject: [PATCH] correct CUL interworking - initialized

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3887 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/10_CUL_HM.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm
index 4209aec99..cd6d20318 100755
--- a/FHEM/10_CUL_HM.pm
+++ b/FHEM/10_CUL_HM.pm
@@ -3070,7 +3070,7 @@ sub CUL_HM_sndIfOpen($) {
   my(undef,$io) = split(':',$_[0]);
   RemoveInternalTimer("sndIfOpen:$io");# should not be necessary, but
   my $ioHash = $defs{$io};
-  if (   $ioHash->{STATE} != m/^(opened|Initialized)$/ 
+  if (   $ioHash->{STATE} !~ m/^(opened|Initialized)$/ 
       ||(defined $ioHash->{XmitOpen} && $ioHash->{XmitOpen} == 0) 
 #	  ||$modules{CUL_HM}{prot}{rspPend}>=$maxPendCmds
 	   ){#still no send allowed
@@ -3106,7 +3106,7 @@ sub CUL_HM_SndCmd($$) {
   return if(!$io);  
   my $ioName = $io->{NAME};
   if ((hex substr($cmd,2,2) & 0x20) && (                   # check for commands with resp-req
-           $io->{STATE} != m/^(opened|Initialized)$/       # we need to queue
+           $io->{STATE} !~ m/^(opened|Initialized)$/       # we need to queue
         || $modules{CUL_HM}{$ioName}{tmr}                  # queue already running
         ||(defined $io->{XmitOpen} && $io->{XmitOpen} == 0)#overload, dont send
 #	    ||$modules{CUL_HM}{prot}{rspPend}>=$maxPendCmds