X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FLEI.pm;h=ffd50db5e9d6e3744584a5ee81db8107b9f8bf0f;hb=7b654d175cf2e31b4354929ea678563f534947e5;hp=6ad421111db6bf74e157f9e1816179a6a3ab8bc6;hpb=f9557e2c6b7510d278310066fe7c26f84cae6e1d;p=public-inbox.git diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 6ad42111..ffd50db5 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -643,8 +643,8 @@ sub workers_start { my $end = $lei->pkt_op_pair; my $ident = $wq->{-wq_ident} // "lei-$lei->{cmd} worker"; $flds->{lei} = $lei; - $wq->awaitpid_init($wq->can('_wq_done_wait') // \&wq_done_wait, $lei); - $wq->wq_workers_start($ident, $jobs, $lei->oldset, $flds); + $wq->wq_workers_start($ident, $jobs, $lei->oldset, $flds, + $wq->can('_wq_done_wait') // \&wq_done_wait, $lei); delete $lei->{pkt_op_p}; my $op_c = delete $lei->{pkt_op_c}; @$end = (); @@ -1390,7 +1390,7 @@ sub DESTROY { # preserve $? for ->fail or ->x_it code } -sub wq_done_wait { # awaitpid cb (via wq_eof / IPC->awaitpid_init) +sub wq_done_wait { # awaitpid cb (via wq_eof) my ($pid, $wq, $lei) = @_; local $current_lei = $lei; my $err_type = $lei->{-err_type};