From afeb2974075f3453d25fd37cb932555da9b2cbdf Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 23 Jul 2016 17:32:24 +0000
Subject: [PATCH] 30_HUEBridge.pm: better 'HTTP/1.1 200 OK' check

git-svn-id: https://svn.fhem.de/fhem/trunk@11833 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/30_HUEBridge.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/30_HUEBridge.pm b/fhem/FHEM/30_HUEBridge.pm
index 6b313ee8b..1fce80752 100644
--- a/fhem/FHEM/30_HUEBridge.pm
+++ b/fhem/FHEM/30_HUEBridge.pm
@@ -42,7 +42,7 @@ sub HUEBridge_Initialize($)
   $hash->{UndefFn}  = "HUEBridge_Undefine";
   $hash->{AttrList} = "key disable:1 disabledForIntervals httpUtils:1,0 pollDevices:1,0 queryAfterSet:1,0 $readingFnAttributes";
 }
-
+eq
 sub
 HUEBridge_Read($@)
 {
@@ -914,7 +914,7 @@ HUEBridge_HTTP_Call($$$;$)
   if( !$ret ) {
     Log3 $name, 2, "$name: empty answer received for $uri";
     return undef;
-  } elsif( $ret eq 'HTTP/1.1 200 OK' ) {
+  } elsif( $ret =~ 'HTTP/1.1 200 OK' ) {
     Log3 $name, 4, "$name: empty answer received for $uri";
     return undef;
   } elsif( $ret !~ m/^[\[{].*[\]}]$/ ) {
@@ -980,7 +980,7 @@ HUEBridge_HTTP_Call2($$$$;$)
     if( !$data ) {
       Log3 $name, 2, "$name: empty answer received for $url";
       return undef;
-    } elsif( $data eq 'HTTP/1.1 200 OK' ) {
+    } elsif( $data =~ 'HTTP/1.1 200 OK' ) {
       Log3 $name, 4, "$name: empty answer received for $url";
       return undef;
     } elsif( $data !~ m/^[\[{].*[\]}]$/ ) {