From 4b72a40100c03c0db30cce5d8ab91fe6e0efd8e1 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 5 Jul 2005 15:20:40 +0000
Subject: [PATCH] Minor cleanup

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

diff --git a/qpsmtpd-forkserver b/qpsmtpd-forkserver
index 891d6e9..143498b 100755
--- a/qpsmtpd-forkserver
+++ b/qpsmtpd-forkserver
@@ -140,11 +140,10 @@ $> = $quid;
 while (1) {
   REAPER();
   my $running = scalar keys %childstatus;
-  while ($running >= $MAXCONN) { 
+  if ($running >= $MAXCONN) { 
     ::log(LOGINFO,"Too many connections: $running >= $MAXCONN.  Waiting one second.");
-    sleep(1) ;
-    REAPER();
-    $running = scalar keys %childstatus;
+    sleep(1);
+    next;
   }
   if (!$sel->can_read(1)) {
     next;