There's no need to create two intermediate arrays when we can
modify the existing arrayref.
---
lib/PublicInbox/Over.pm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lib/PublicInbox/Over.pm b/lib/PublicInbox/Over.pm
index 786f9d92..d6409b2a 100644
--- a/lib/PublicInbox/Over.pm
+++ b/lib/PublicInbox/Over.pm
@@ -273,13 +273,13 @@ SELECT ibx_id,xnum,oidbin FROM xref3 WHERE docid = ?
ORDER BY ibx_id,xnum ASC
my $eidx_key_sth = $dbh->prepare_cached(<<'', undef, 1);
SELECT eidx_key FROM inboxes WHERE ibx_id = ?
- [ map {
- my $r = $_;
+ for my $r (@$rows) {
$eidx_key_sth->execute($r->[0]);
my $eidx_key = $eidx_key_sth->fetchrow_array;
$eidx_key //= "missing://ibx_id=$r->[0]";
- "$eidx_key:$r->[1]:".unpack('H*', $r->[2]);
- } @$rows ];
+ $r = "$eidx_key:$r->[1]:".unpack('H*', $r->[2]);
+ }
+ $rows;
}
sub next_by_mid {