Another small cleanup

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@463 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-07-05 15:25:54 +00:00
parent 4b72a40100
commit 314625d05a

View File

@ -145,9 +145,7 @@ while (1) {
sleep(1); sleep(1);
next; next;
} }
if (!$sel->can_read(1)) { next unless $sel->can_read(1);
next;
}
my $hisaddr = accept(my $client, $server); my $hisaddr = accept(my $client, $server);
if (!$hisaddr) { if (!$hisaddr) {
# possible something condition... # possible something condition...