diff options
author | Eric Wong <e@80x24.org> | 2020-12-21 07:51:19 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2020-12-21 21:51:56 +0000 |
commit | bad84119fb0915abe3f19fe4fb9c34e24fe7e564 (patch) | |
tree | 133899000ba4292cbd9c15c63098a6fedb78f6d0 /lib/PublicInbox | |
parent | eea4ba7bac73b67ccd2cdd07946b176260ac5fac (diff) | |
download | public-inbox-bad84119fb0915abe3f19fe4fb9c34e24fe7e564.tar.gz |
Perl sort is alphabetical by default and Xapian uses numeric document IDs, so sort must be told explicitly to use numeric comparisons even if the scalars are integer values (IV) internally. And eliminate extra hash marks ("#") since they're probably too noisy if there are many IDs. Note: I haven't seen this warning message in syslog, yet :>
Diffstat (limited to 'lib/PublicInbox')
-rw-r--r-- | lib/PublicInbox/Isearch.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/Isearch.pm b/lib/PublicInbox/Isearch.pm index 8a1f257a..e362c80a 100644 --- a/lib/PublicInbox/Isearch.pm +++ b/lib/PublicInbox/Isearch.pm @@ -89,7 +89,7 @@ SELECT docid,xnum FROM xref3 WHERE ibx_id = ? AND docid IN ($qmarks) } if (scalar keys %order) { warn "W: $self->{es}->{topdir} #", - join(', #', sort keys %order), + join(', ', sort { $a <=> $b } keys %order), " not mapped to `$self->{eidx_key}'\n"; warn "W: $self->{es}->{topdir} may need to be reindexed\n"; @xnums = grep { defined } @xnums; @@ -113,7 +113,7 @@ sub mset_to_smsg { } if (scalar keys %order) { warn "W: $ibx->{inboxdir} #", - join(', #', sort keys %order), + join(', ', sort { $a <=> $b } keys %order), " no longer valid\n"; warn "W: $self->{es}->{topdir} may need to be reindexed\n"; } |