fix compilation error

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@288 958fd67b-6ff1-0310-b445-bb7760255be9
2004-08-14 17:42:45 +00:00 · 2004-08-14 17:42:45 +00:00 · 616aa735b9
commit 616aa735b9
parent 1eefd49c22
1 changed files with 1 additions and 1 deletions
--- a/2
+++ b/2
@ -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) {