From f1281afe99dd467466e6210120a08a7e694f99e9 Mon Sep 17 00:00:00 2001
From: Hanno Hecker <vetinari@ankh-morp.org>
Date: Mon, 30 Jul 2007 17:44:58 +0000
Subject: [PATCH] prefork: fix missing "->new" after IO::Socket::INET

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@760 958fd67b-6ff1-0310-b445-bb7760255be9
---
 qpsmtpd-prefork | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/qpsmtpd-prefork b/qpsmtpd-prefork
index b9e4e0c..dfa78d2 100755
--- a/qpsmtpd-prefork
+++ b/qpsmtpd-prefork
@@ -159,7 +159,7 @@ sub run {
       $d = IO::Socket::INET6->new(@Socket_opts);
     }
     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 "
       . "wait 20 secs before starting daemon again)\n"