From 314625d05a13f233fc863073dac639d19e9d5f24 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 5 Jul 2005 15:25:54 +0000
Subject: [PATCH] Another small cleanup

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

diff --git a/qpsmtpd-forkserver b/qpsmtpd-forkserver
index 143498b..c60762c 100755
--- a/qpsmtpd-forkserver
+++ b/qpsmtpd-forkserver
@@ -140,14 +140,12 @@ $> = $quid;
 while (1) {
   REAPER();
   my $running = scalar keys %childstatus;
-  if ($running >= $MAXCONN) { 
+  if ($running >= $MAXCONN) {
     ::log(LOGINFO,"Too many connections: $running >= $MAXCONN.  Waiting one second.");
     sleep(1);
     next;
   }
-  if (!$sel->can_read(1)) {
-    next;
-  }
+  next unless $sel->can_read(1);
     my $hisaddr = accept(my $client, $server);
     if (!$hisaddr) {
         # possible something condition...