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:
Hanno Hecker 2007-07-30 17:44:58 +00:00
parent f4405d7a8c
commit f1281afe99

View File

@ -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"