From: Eric Wong <e@80x24.org>
Date: Sat, 28 Jan 2023 11:02:53 +0000 (+0000)
Subject: repo_atom: translate: account for multiple args
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=9d0ee329981f20cf2cc82c3c0c16c70ec8ab9bca;hp=f375ce494db8ce0e28676c89ed8b9d09a16de505;p=public-inbox.git

repo_atom: translate: account for multiple args

->translate should handle unlimited args, even if we don't
currently use it that way...
---

diff --git a/lib/PublicInbox/RepoAtom.pm b/lib/PublicInbox/RepoAtom.pm
index 4a013147..44883ab4 100644
--- a/lib/PublicInbox/RepoAtom.pm
+++ b/lib/PublicInbox/RepoAtom.pm
@@ -46,7 +46,7 @@ sub translate {
 	my $rec = $_[0] // return $self->zflush; # getline
 	my @out;
 	my $lbuf = delete($self->{lbuf}) // shift;
-	$lbuf .= shift if @_;
+	$lbuf .= shift while @_;
 	my $is_tag = $self->{-is_tag};
 	my ($H, $ct, $an, $ae, $at, $s, $bdy);
 	while ($lbuf =~ s/\A([^\0]+)\0\n//s) {