From e440b7bd65f7eb54360791924cd6a65571abaa12 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Fri, 30 Dec 2005 20:03:22 +0000
Subject: [PATCH] Get forkserver working again

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@595 958fd67b-6ff1-0310-b445-bb7760255be9
---
 qpsmtpd-forkserver | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/qpsmtpd-forkserver b/qpsmtpd-forkserver
index affb829..6593a56 100755
--- a/qpsmtpd-forkserver
+++ b/qpsmtpd-forkserver
@@ -45,8 +45,7 @@ EOT
         exit 0;
 }
 
-GetOptions('h|help' => \&usage,
-           'l|listen-address=s'     => \@LOCALADDR,
+GetOptions('l|listen-address=s'     => \@LOCALADDR,
            'c|limit-connections=i'  => \$MAXCONN,
            'm|max-from-ip=i'        => \$MAXCONNIP,
            'p|port=i'               => \$PORT,
@@ -139,7 +138,7 @@ if ($PID_FILE) {
 }
 
 # Load plugins here
-my $qpsmtpd = Qpsmtpd::PollServer->new();
+my $qpsmtpd = bless {},'Qpsmtpd'; # ugh - probably should have new() in Qpsmtpd.pm
 
 # Drop privileges
 my (undef, undef, $quid, $qgid) = getpwnam $USER or