Changeset 709

Show
Ignore:
Timestamp:
10/11/07 03:21:54 (1 year 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:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lib/Perlbal/TCPListener.pm

    r708 r709  
    1414use fields qw(service hostport sslopts); 
    1515use Socket qw(IPPROTO_TCP SOL_SOCKET SO_SNDBUF); 
    16 use Perlbal::SocketSSL; 
     16BEGIN { 
     17    eval { require Perlbal::SocketSSL }; 
     18    if ($@) { warn "SSL support not available: $@\n" } 
     19} 
    1720 
    1821# TCPListener