my ($self) = @_;
my $c = $self->{sock};
my $msg;
- do {
+ while (1) {
my $n = recv($c, $msg, 4096, 0);
unless (defined $n) {
return if $! == EAGAIN;
my ($sub, @args) = @$op;
$sub->(@args, @pargs);
return $self->close if $msg eq ''; # close on EOF
- } while (1);
+ }
}
1;