diff options
Diffstat (limited to 'lib/PublicInbox/ParentPipe.pm')
-rw-r--r-- | lib/PublicInbox/ParentPipe.pm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lib/PublicInbox/ParentPipe.pm b/lib/PublicInbox/ParentPipe.pm index f62f011b..538b5632 100644 --- a/lib/PublicInbox/ParentPipe.pm +++ b/lib/PublicInbox/ParentPipe.pm @@ -5,17 +5,13 @@ # notified if the master process dies. package PublicInbox::ParentPipe; use strict; -use warnings; -use base qw(PublicInbox::DS); -use fields qw(cb); +use parent qw(PublicInbox::DS); use PublicInbox::Syscall qw(EPOLLIN EPOLLONESHOT); sub new ($$$) { my ($class, $pipe, $worker_quit) = @_; - my $self = fields::new($class); + my $self = bless { cb => $worker_quit }, $class; $self->SUPER::new($pipe, EPOLLIN|EPOLLONESHOT); - $self->{cb} = $worker_quit; - $self; } # master process died, time to call worker_quit ourselves |