Don't require Danga::Socket in tls plugin

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@889 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2008-05-06 21:43:07 +00:00
parent aa016d356e
commit 20fde2ef98

View File

@ -59,7 +59,7 @@ and put a suitable string in config/tls_ciphers (e.g. "DEFAULT" or
=cut =cut
use IO::Socket::SSL;# qw(debug1 debug2 debug3 debug4); use IO::Socket::SSL 0.98; # qw(debug1 debug2 debug3 debug4);
sub init { sub init {
my ($self, $qp, $cert, $key, $ca) = @_; my ($self, $qp, $cert, $key, $ca) = @_;
@ -259,8 +259,6 @@ use strict;
use warnings; use warnings;
no warnings qw(deprecated); no warnings qw(deprecated);
use Danga::Socket 1.44;
use IO::Socket::SSL 0.98;
use Errno qw( EAGAIN ); use Errno qw( EAGAIN );
use fields qw( _stashed_qp _stashed_plugin _ssl_started ); use fields qw( _stashed_qp _stashed_plugin _ssl_started );