TcpServer, improve IPv6 support, by Michael Holzt
This commit is contained in:
parent
d1bb2d949b
commit
161834f3f3
@ -14,7 +14,7 @@ if (
|
||||
# INET6 prior to 2.01 will not work; sorry.
|
||||
eval {require IO::Socket::INET6; IO::Socket::INET6->VERSION("2.00");}
|
||||
) {
|
||||
import Socket6;
|
||||
Socket6->import(qw(inet_ntop));
|
||||
$has_ipv6=1;
|
||||
}
|
||||
|
||||
|
@ -20,10 +20,6 @@ $| = 1;
|
||||
|
||||
my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6;
|
||||
|
||||
if ($has_ipv6) {
|
||||
eval 'use Socket6';
|
||||
}
|
||||
|
||||
# Configuration
|
||||
my $MAXCONN = 15; # max simultaneous connections
|
||||
my @PORT; # port number(s)
|
||||
|
@ -31,10 +31,6 @@ defined $Config{sig_name} || die "No signals?";
|
||||
|
||||
my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6;
|
||||
|
||||
if ($has_ipv6) {
|
||||
use Socket6;
|
||||
}
|
||||
|
||||
#use Time::HiRes qw(gettimeofday tv_interval);
|
||||
|
||||
#get available signals
|
||||
|
Loading…
Reference in New Issue
Block a user