- my ($self, $f, @args) = @_;
- $self->{ipt}->pmdir_cb($f, @args);
-}
-
-sub pmd_done_wait {
- my ($arg, $pid) = @_;
- my ($self, $lei) = @$arg;
- my $wait = $lei->{sto}->ipc_do('done');
- $lei->can('wq_done_wait')->($arg, $pid);
+ my ($self, $f, $fl, @args) = @_;
+ $self->{ipt}->pmdir_cb($f, $fl, @args);