# Copyright (C) 2016-2020 all contributors # License: AGPL-3.0+ # only for PublicInbox::Daemon, allows worker processes to be # notified if the master process dies. package PublicInbox::ParentPipe; use strict; use parent qw(PublicInbox::DS); use PublicInbox::Syscall qw(EPOLLIN EPOLLONESHOT); sub new ($$$) { my ($class, $pipe, $worker_quit) = @_; my $self = bless { cb => $worker_quit }, $class; $self->SUPER::new($pipe, EPOLLIN|EPOLLONESHOT); } # master process died, time to call worker_quit ourselves sub event_step { $_[0]->close; # PublicInbox::DS::close $_[0]->{cb}->(); } 1;