lei: share common *done_wait callbacks

[public-inbox.git] / lib / PublicInbox / LeiBlob.pm

diff --git a/lib/PublicInbox/LeiBlob.pm b/lib/PublicInbox/LeiBlob.pm
index ad885306beaa20c17ac6bb31e3bb4dc65bbca76e..e4cd4cca58fb10266d0b089da2f79f8cf704db6f 100644 (file)
--- a/lib/PublicInbox/LeiBlob.pm
+++ b/lib/PublicInbox/LeiBlob.pm
@@ -10,17 +10,10 @@ use parent qw(PublicInbox::IPC);
 use PublicInbox::Spawn qw(spawn popen_rd which);
 use PublicInbox::DS;
 
-sub sol_done_wait { # dwaitpid callback
-       my ($arg, $pid) = @_;
-       my (undef, $lei) = @$arg;
-       $lei->child_error($?) if $?;
-       $lei->dclose;
-}
-
 sub sol_done { # EOF callback for main daemon
        my ($lei) = @_;
        my $sol = delete $lei->{sol} // return $lei->dclose; # already failed
-       $sol->wq_wait_old(\&sol_done_wait, $lei);
+       $sol->wq_wait_old($lei->can('wq_done_wait'), $lei);
 }
 
 sub get_git_dir ($$) {