X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=lib%2FPublicInbox%2FRepoAtom.pm;h=44883ab468e81c15636aa215731a1a31db5ebad4;hp=4a013147e7ba4eb427068048412633f73b5c13ca;hb=9d0ee329981f20cf2cc82c3c0c16c70ec8ab9bca;hpb=f375ce494db8ce0e28676c89ed8b9d09a16de505 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) {