diff options
author | Eric Wong <e@80x24.org> | 2023-01-28 11:02:53 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-01-28 18:52:33 +0000 |
commit | 9d0ee329981f20cf2cc82c3c0c16c70ec8ab9bca (patch) | |
tree | 084253431bbb932e28935003b6ac2b424f19b95b | |
parent | f375ce494db8ce0e28676c89ed8b9d09a16de505 (diff) | |
download | public-inbox-9d0ee329981f20cf2cc82c3c0c16c70ec8ab9bca.tar.gz |
->translate should handle unlimited args, even if we don't currently use it that way...
-rw-r--r-- | lib/PublicInbox/RepoAtom.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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) { |