http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/lib/PublicInbox/HTTPD/Async.pm?h=p516-leak
call $cb at the top of the next event loop to # avoid recursion: unless ( defined ( $io )) { PublicInbox :: DS :: requeue ( $cb ); die ' $end unsupported w/o $io ' if $end ; return ; } my $self = fields :: new ( $class ); IO :: Handle :: blocking ( $io , 0 ); $self -> SUPER :: new ( $io , EPOLLIN | EPOLLET ); $self ->{ cb } = $cb ; # initial read callback, later replaced by main_cb $self ->{ end } = $end ; # like END {}, but only for this object $self ; } sub main_cb ($$) { my ( $http , $fh ) = @_ ; sub {...