From 4a37eac621a49a9c6d344d9b1f305141bb4a619d Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 30 Mar 2016 08:57:41 +0000
Subject: [PATCH] HttpUtils.pm: check for can_client_sni (Forum #51503 /
 #48599)

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

diff --git a/fhem/FHEM/HttpUtils.pm b/fhem/FHEM/HttpUtils.pm
index 6996281c1..2800c71dc 100644
--- a/fhem/FHEM/HttpUtils.pm
+++ b/fhem/FHEM/HttpUtils.pm
@@ -211,12 +211,13 @@ HttpUtils_Connect2($)
       $hash->{conn}->blocking(1);
       my $sslVersion = AttrVal($hash->{NAME}, "sslVersion", 
                        AttrVal("global", "sslVersion", "SSLv23:!SSLv3:!SSLv2"));
-      IO::Socket::SSL->start_SSL($hash->{conn}, {
-          Timeout     => $hash->{timeout},
-          SSL_version => $sslVersion,
-          SSL_hostname => $hash->{host},
-          %{$hash->{sslargs}}
-        }) || undef $hash->{conn};
+      my %par = %{$hash->{sslargs}};
+      $par{Timeout}      = $hash->{timeout};
+      $par{SSL_version}  = $sslVersion;
+      $par{SSL_hostname} = $hash->{host} 
+        if(IO::Socket::SSL->can('can_client_sni') &&
+           IO::Socket::SSL->can_client_sni());
+      IO::Socket::SSL->start_SSL($hash->{conn}, \%par) || undef $hash->{conn};
       $hash->{hu_sslAdded} = 1 if($hash->{keepalive});
     }
   }