pkt_op: make pkt_do an OO method

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

diff --git a/lib/PublicInbox/V2Writable.pm b/lib/PublicInbox/V2Writable.pm
index 573d9c6f817a7867f4b50e901147c2383e3359f8..689d27c8eaef1998d1ca477ddd47f4b7578b85d1 100644 (file)
--- a/lib/PublicInbox/V2Writable.pm
+++ b/lib/PublicInbox/V2Writable.pm
@@ -1435,7 +1435,8 @@ sub ipc_atfork_child {
        my ($self) = @_;
        if (my $lei = delete $self->{lei}) {
                $lei->_lei_atfork_child;
-               close(delete $lei->{pkt_op_p});
+               my $pkt_op_p = delete $lei->{pkt_op_p};
+               close($pkt_op_p->{op_p});
        }
        $self->SUPER::ipc_atfork_child;
 }