- $self->ipc_do('add_message', $eml, $smsg);
-}
-
-sub shard_add_eidx_info {
- my ($self, $docid, $eidx_key, $eml) = @_;
- $self->ipc_do('add_eidx_info', $docid, $eidx_key, $eml);
-}
-
-sub shard_remove_eidx_info {
- my ($self, $docid, $eidx_key, $eml) = @_;
- $self->ipc_do('remove_eidx_info', $docid, $eidx_key, $eml);
-}
-
-# needed when there's multiple IPC workers and the parent forking
-# causes newer siblings to inherit older siblings sockets
-sub shard_atfork_child {
- my ($self) = @_;
- my $pid = delete($self->{-ipc_worker_pid}) or
- die "BUG: $$ no -ipc_worker_pid";
- my $s1 = delete($self->{-ipc_sock}) or die "BUG: $$ no -ipc_sock";
- $pid == $$ and die "BUG: $$ shard_atfork_child called on itself";
- close($s1) or die "close -ipc_sock: $!";