prefork: fix missing "->new" after IO::Socket::INET
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@760 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
f4405d7a8c
commit
f1281afe99
@ -159,7 +159,7 @@ sub run {
|
|||||||
$d = IO::Socket::INET6->new(@Socket_opts);
|
$d = IO::Socket::INET6->new(@Socket_opts);
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
$d = IO::Socket::INET(@Socket_opts);
|
$d = IO::Socket::INET->new(@Socket_opts);
|
||||||
}
|
}
|
||||||
die "FATAL: Failed to start daemon.\nReason: $!\n(It may be nessesary to "
|
die "FATAL: Failed to start daemon.\nReason: $!\n(It may be nessesary to "
|
||||||
. "wait 20 secs before starting daemon again)\n"
|
. "wait 20 secs before starting daemon again)\n"
|
||||||
|
Loading…
Reference in New Issue
Block a user