diff options
author | Eric Wong <e@80x24.org> | 2023-11-26 21:08:01 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-11-26 21:08:25 +0000 |
commit | 13a7f10e585b0816e375f134f00a1d2fe9af4bd3 (patch) | |
tree | 670f6b010540cad82fa7c6f9732f708b9c70177d /lib/PublicInbox/IO.pm | |
parent | 51b2fa7fb2b7b1caed8b1dde4613992a192225ed (diff) | |
download | public-inbox-13a7f10e585b0816e375f134f00a1d2fe9af4bd3.tar.gz |
drop redundant calls to DS->Reset
Reset gets called on END{} anyways to workaround DBI lifetime problems, so there's no need to call it near exit. We can't replace calls to POSIX::_exit with `exit' to force END{} to run just yet, as there are still some lingering destruction ordering problems on newer DBI and or Perls.
Diffstat (limited to 'lib/PublicInbox/IO.pm')
-rw-r--r-- | lib/PublicInbox/IO.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/PublicInbox/IO.pm b/lib/PublicInbox/IO.pm index 6593dcdf..5654f3b0 100644 --- a/lib/PublicInbox/IO.pm +++ b/lib/PublicInbox/IO.pm @@ -15,10 +15,8 @@ use Errno qw(EINTR EAGAIN); sub waitcb { # awaitpid callback my ($pid, $errref, $cb, @args) = @_; - $errref //= \my $workaround_await_pids_clobbered; - $$errref = $?; # sets .cerr for _close + $$errref = $? if $errref; # sets .cerr for _close $cb->($pid, @args) if $cb; # may clobber $? - $? = $$errref; } sub attach_pid { @@ -52,7 +50,7 @@ sub close { } else { # wait synchronously my $w = awaitpid($reap->[1]); } - $? ? '' : $ret; # use $?, AWAIT_PIDS may be cleared on ->Reset (FIXME?) + $? ? '' : $ret; } sub DESTROY { |