Fail the connection (rather than die) if SSLify fails. Resolves rt.cp…

…an.org ticket 65069.
rcaputo · Jan 26, 2011 · 937fe47 · 937fe47
1 parent 67d5472
commit 937fe47
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/POE/Component/Client/Keepalive.pm b/lib/POE/Component/Client/Keepalive.pm
@@ -586,7 +586,13 @@ sub _ka_conn_success {
     unless ($ssl_available) {
       die "There is no SSL support, please install POE::Component::SSLify";
     }
-    $socket = POE::Component::SSLify::Client_SSLify ($socket);
+    eval {
+      $socket = POE::Component::SSLify::Client_SSLify($socket);
+    };
+		if ($@) {
+			_respond_with_error($request, "sslify", undef, "$@");
+			return;
+		}
   }
 
   $used->[USED_SOCKET] = $socket;