# Copyright (C) 2016 all contributors # License: AGPL-3.0+ # a tied handle for auto reaping of children tied to a pipe, see perltie(1) package PublicInbox::ProcessPipe; use strict; use warnings; sub TIEHANDLE { my ($class, $pid, $fh) = @_; bless { pid => $pid, fh => $fh }, $class; } sub READ { sysread($_[0]->{fh}, $_[1], $_[2], $_[3] || 0) } sub READLINE { readline($_[0]->{fh}) } sub CLOSE { my $fh = delete($_[0]->{fh}); my $ret = defined $fh ? close($fh) : ''; my $pid = delete $_[0]->{pid}; if (defined $pid) { waitpid($pid, 0); $ret = '' if $?; } $ret; } sub FILENO { fileno($_[0]->{fh}) } sub DESTROY { CLOSE(@_); undef; } sub pid { $_[0]->{pid} } 1;