diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/PublicInbox/LEI.pm | 4 | ||||
| -rw-r--r-- | lib/PublicInbox/LeiAuth.pm | 3 |
2 files changed, 2 insertions, 5 deletions
diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 8d49b212..73c9e267 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -443,7 +443,7 @@ sub lei_atfork_child { my ($self, $persist) = @_; # we need to explicitly close things which are on stack if ($persist) { - my @io = delete @$self{0,1,2}; + my @io = delete @$self{qw(0 1 2 sock)}; unless ($self->{oneshot}) { close($_) for @io; } @@ -451,7 +451,7 @@ sub lei_atfork_child { delete $self->{0}; } delete @$self{qw(cnv)}; - for (delete @$self{qw(3 sock old_1 au_done)}) { + for (delete @$self{qw(3 old_1 au_done)}) { close($_) if defined($_); } if (my $op_c = delete $self->{pkt_op_c}) { diff --git a/lib/PublicInbox/LeiAuth.pm b/lib/PublicInbox/LeiAuth.pm index c70d8e8f..f2cdb026 100644 --- a/lib/PublicInbox/LeiAuth.pm +++ b/lib/PublicInbox/LeiAuth.pm @@ -54,11 +54,8 @@ sub auth_start { sub ipc_atfork_child { my ($self) = @_; - # prevent {sock} from being closed in lei_atfork_child: - my $s = delete $self->{lei}->{sock}; delete $self->{lei}->{auth}; # drop circular ref $self->{lei}->lei_atfork_child; - $self->{lei}->{sock} = $s if $s; $self->SUPER::ipc_atfork_child; } |