Another small cleanup
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@463 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
4b72a40100
commit
314625d05a
@ -145,9 +145,7 @@ while (1) {
|
||||
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...
|
||||
|
Loading…
Reference in New Issue
Block a user