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 ParaDNS;
|
||||
use Socket;
|
||||
use Qpsmtpd::TcpServer;
|
||||
|
||||
my %invalid = ();
|
||||
my $has_ipv6 = Qpsmtpd::Constants::has_ipv6;
|
||||
my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6();
|
||||
|
||||
sub register {
|
||||
my ( $self, $qp ) = @_;
|
||||
|
Loading…
Reference in New Issue
Block a user