From 1479b3d2947741ec1af0879c89015ef0b1998990 Mon Sep 17 00:00:00 2001
From: vk <>
Date: Fri, 26 May 2017 07:14:53 +0000
Subject: [PATCH] 24_TPLinkHS110: Reverted to state before retry on connect

git-svn-id: https://svn.fhem.de/fhem/trunk@14381 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/24_TPLinkHS110.pm | 35 +++++------------------------------
 1 file changed, 5 insertions(+), 30 deletions(-)

diff --git a/fhem/FHEM/24_TPLinkHS110.pm b/fhem/FHEM/24_TPLinkHS110.pm
index 6c1316d28..f8d0ec9cd 100644
--- a/fhem/FHEM/24_TPLinkHS110.pm
+++ b/fhem/FHEM/24_TPLinkHS110.pm
@@ -99,12 +99,7 @@ sub TPLinkHS110_Get($$)
 	        Type     => SOCK_STREAM,
        		Timeout  => $hash->{TIMEOUT} )
 	        or return "Couldn't connect to $remote_host:$remote_port: $@\n";
-	eval {
-		$socket->send($c);
-	} or do {
-		Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
-		$socket->send($c);
-	};
+	$socket->send($c);
 	my $data;
 	my $retval = $socket->recv($data,8192);
 	$socket->close();
@@ -139,12 +134,7 @@ sub TPLinkHS110_Get($$)
 		        Type     => SOCK_STREAM,
 	       		Timeout  => $hash->{TIMEOUT} )
 		        or return "Couldn't connect to $remote_host:$remote_port: $@\n";
-		eval {
-			$socket->send($c);
-		} or do {
-			Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
-			$socket->send($c);
-		};
+		$socket->send($rc);
 		my $rdata;
 		$retval = $socket->recv($rdata,8192);
 		$socket->close();
@@ -174,12 +164,7 @@ sub TPLinkHS110_Get($$)
 		        Type     => SOCK_STREAM,
 	       		Timeout  => $hash->{TIMEOUT} )
 		        or return "Couldn't connect to $remote_host:$remote_port: $@\n";
-		eval {
-			$socket->send($c);
-		} or do {
-			Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
-			$socket->send($c);
-		};
+		$socket->send($c);
 		my $data;
 		$retval = $socket->recv($data,8192);
 		$socket->close();
@@ -236,12 +221,7 @@ sub TPLinkHS110_Set($$)
 	        Type     => SOCK_STREAM,
        		Timeout  => $hash->{TIMEOUT})
 	        or return "Couldn't connect to $remote_host:$remote_port: $@\n";
-	eval {
-		$socket->send($c);
-	} or do {
-		Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
-		$socket->send($c);
-	};
+	$socket->send($c);
 	my $data;
 	my $retval = $socket->recv($data,8192);
 	$socket->close();
@@ -330,12 +310,7 @@ sub TPLinkHS110_Attr {
 		        Type     => SOCK_STREAM,
 	       		Timeout  => $hash->{TIMEOUT} )
 		        or return "Couldn't connect to $remote_host:$remote_port: $@\n";
-		eval {
-			$socket->send($c);
-		} or do {
-			Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
-			$socket->send($c);
-		};
+		$socket->send($c);
 		my $data;
 		my $retval = $socket->recv($data,8192);
 		$socket->close();