From 200a81c0c32173edf9a7ac5bc555c6dfb1aa28b5 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Thu, 4 Feb 2021 02:06:54 +0000
Subject: 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.
---
 lib/PublicInbox/PktOp.pm | 4 ++--
 1 file 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;
-- 
cgit v1.2.3-24-ge0c7