- $self->{verbose} and
- $self->{lei}->qerr('# '.unpack('H*', $oidbin)." => @$kw\n");
- $self->{sto}->ipc_do('set_eml_vmd', undef, { kw => $kw }, \@docids);
-}
-
-sub ikw_done_wait {
- my ($arg, $pid) = @_;
- my ($self, $lei) = @$arg;
- my $wait = $lei->{sto}->ipc_do('done');
- $lei->can('wq_done_wait')->($arg, $pid);
+ $self->{verbose} and $self->{lei}->qerr("# $uid_url => @$kw\n");
+ $self->{sto}->wq_do('set_eml_vmd', undef, { kw => $kw }, \@docids);