Fix for new IPv6 code
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@743 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
65631b8bb2
commit
2d6bee1679
@ -3,9 +3,10 @@
|
|||||||
use Qpsmtpd::DSN;
|
use Qpsmtpd::DSN;
|
||||||
use ParaDNS;
|
use ParaDNS;
|
||||||
use Socket;
|
use Socket;
|
||||||
|
use Qpsmtpd::TcpServer;
|
||||||
|
|
||||||
my %invalid = ();
|
my %invalid = ();
|
||||||
my $has_ipv6 = Qpsmtpd::Constants::has_ipv6;
|
my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6();
|
||||||
|
|
||||||
sub register {
|
sub register {
|
||||||
my ( $self, $qp ) = @_;
|
my ( $self, $qp ) = @_;
|
||||||
|
Loading…
Reference in New Issue
Block a user