From c6b4533da5aea8ebd86f8115c63f5247c9dafe3d Mon Sep 17 00:00:00 2001
From: HomeAuto_User <HomeAuto_User@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 15 Feb 2018 21:04:57 +0000
Subject: [PATCH] 88_xs1Bridge.pm: small fix

git-svn-id: https://svn.fhem.de/fhem/trunk@16189 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/88_xs1Bridge.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/88_xs1Bridge.pm b/fhem/FHEM/88_xs1Bridge.pm
index 26082bcf3..735ac3352 100644
--- a/fhem/FHEM/88_xs1Bridge.pm
+++ b/fhem/FHEM/88_xs1Bridge.pm
@@ -64,12 +64,15 @@ sub xs1Bridge_Define($$) {
 	return "Your IP is not valid. Please Check!" if not($arg[2] =~ /[0-9]{1,3}[.][0-9]{1,3}[.][0-9]{1,3}[.][0-9]{1,3}/s);
 	return "Cannot define xs1Bridge device. Perl modul ${missingModul}is missing." if ( $missingModul );
 
+	my $xs1check;
 	my $p = Net::Ping->new("tcp", 2);
 	if(!($p->ping("$arg[2]", 2))) {
-		return "Your IP is not reachable. Please Check!";
+		$xs1check = 1 ;
 	}
 	$p->close();
 	
+	return "Your IP is not reachable. Please Check!" if ($xs1check == 1);
+	
 	# Parameter Define
 	my $xs1_ip = $arg[2];				## Zusatzparameter 1 bei Define - ggf. nur in Sub
 	$hash->{xs1_ip} = $xs1_ip;