From e130b0f5f7d99c7a29eb6880fb4ccb0c83213836 Mon Sep 17 00:00:00 2001
From: Robert Nelson <robertn@the-nelsons.org>
Date: Fri, 5 Jun 2015 15:21:57 -0700
Subject: [PATCH] Print IO::Socket::SSL fatal errors during SSL setup

---
 pandora_server/bin/tentacle_server | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pandora_server/bin/tentacle_server b/pandora_server/bin/tentacle_server
index b7cd6c0961..3f044b4db4 100755
--- a/pandora_server/bin/tentacle_server
+++ b/pandora_server/bin/tentacle_server
@@ -736,6 +736,9 @@ sub accept_connections {
 sub serve_client() {
 
 	eval {		
+		local $SIG{__DIE__} = sub {
+			print STDERR $_[0];
+		};
 		# Add client socket to select queue
 		$t_select = IO::Select->new ();
 		$t_select->add ($t_client_socket);