http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/lib/PublicInbox/CmdIPC4.pm
( $_ [ 0 ] & 15 ); select ( undef , undef , undef , 0.1 ); 1 ; } BEGIN { eval { require Socket :: MsgHdr ; # XS no warnings 'once' ; # any number of FDs per-sendmsg(2) + buffer * send_cmd4 = sub ($$$$;$) { # (sock, fds, buf, flags) = @_; my ( $sock , $fds , undef , $flags , $tries ) = @_ ; $tries // = - 1 ; # infinite my $mh = Socket :: MsgHdr -> new ( buf => $_ [ 2 ]); $mh -> cmsghdr ( SOL_SOCKET , SCM_RIGHTS , pack ( 'i' x scalar ( @ $fds ), @ $fds )); my $s ; do { $s = Socket :: MsgHdr...