repo_atom: translate: account for multiple args

[public-inbox.git] / lib / PublicInbox / RepoAtom.pm

diff --git a/lib/PublicInbox/RepoAtom.pm b/lib/PublicInbox/RepoAtom.pm
index 4a013147e7ba4eb427068048412633f73b5c13ca..44883ab468e81c15636aa215731a1a31db5ebad4 100644 (file)
--- 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) {