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:
parent
aa016d356e
commit
20fde2ef98
@ -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 );
|
||||||
|
Loading…
Reference in New Issue
Block a user