Changeset 709 for trunk/lib/Perlbal/TCPListener.pm

Timestamp:

10/11/07 03:21:54 (2 years ago)

Author:

ask

Message:

make SSL support optional (would be better to only try loading the
SSL stuff if it's configured, but this helps a little)

Files:

• trunk/lib/Perlbal/TCPListener.pm (modified) (1 diff)

trunk/lib/Perlbal/TCPListener.pm

@@ -14 +14 @@
 use fields qw(service hostport sslopts);
 use Socket qw(IPPROTO_TCP SOL_SOCKET SO_SNDBUF);
-use Perlbal::SocketSSL;
+BEGIN {
+    eval { require Perlbal::SocketSSL };
+    if ($@) { warn "SSL support not available: $@\n" }
+}
 
 # TCPListener