pkt_op: do not exit subroutine via "next"

"next" apparently doesn't work in "do {} while" loops,
so just use "while" as it makes no difference, here.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/PublicInbox/PktOp.pm b/lib/PublicInbox/PktOp.pm
index 10d76da0..5d8e78ea 100644
--- a/lib/PublicInbox/PktOp.pm
+++ b/lib/PublicInbox/PktOp.pm
@@ -48,7 +48,7 @@ sub event_step {
         my ($self) = @_;
         my $c = $self->{sock};
         my $msg;
-        do {
+        while (1) {
                 my $n = recv($c, $msg, 4096, 0);
                 unless (defined $n) {
                         return if $! == EAGAIN;
@@ -70,7 +70,7 @@ sub event_step {
                 my ($sub, @args) = @$op;
                 $sub->(@args, @pargs);
                 return $self->close if $msg eq ''; # close on EOF
-        } while (1);
+        }
 }
 
 1;