From 616aa735b9f07ee66f05a40e09fac88eb7b2da70 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Sat, 14 Aug 2004 17:42:45 +0000
Subject: [PATCH] fix compilation error

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

diff --git a/qpsmtpd-forkserver b/qpsmtpd-forkserver
index adfe872..59f49c7 100755
--- a/qpsmtpd-forkserver
+++ b/qpsmtpd-forkserver
@@ -120,7 +120,7 @@ while (1) {
         # "Use of freed value in iteration" under perl 5.8.4.
         my @rip = values %childstatus;
         foreach my $rip (@rip) {
-          ++$num_conn if (defined $rip && $rip eq $iaddr) {
+          ++$num_conn if (defined $rip && $rip eq $iaddr);
         }
 
         if ($num_conn > $MAXCONNIP) {