lib/PublicInbox/LEI.pm | 2 +- lib/PublicInbox/Syscall.pm | 2 +- diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 1f4a30829a917d734c8ca2cb46abcba2bfa3073b..2784ca6b85d26936aac16aa24dcc96e43b456c39 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -670,7 +670,7 @@ sub accept_dispatch { # Listener {post_accept} callback my ($sock) = @_; # ignore other $sock->autoflush(1); my $self = bless { sock => $sock }, __PACKAGE__; - vec(my $rvec, fileno($sock), 1) = 1; + vec(my $rvec = '', fileno($sock), 1) = 1; select($rvec, undef, undef, 1) or return send($sock, 'timed out waiting to recv FDs', MSG_EOR); my @fds = $recv_cmd->($sock, my $buf, 4096 * 33); # >MAX_ARG_STRLEN diff --git a/lib/PublicInbox/Syscall.pm b/lib/PublicInbox/Syscall.pm index a1f532353eab391020be7a94710433839fc2d278..5ff1d65fc9365df5c2ee022df19395e3e7d59970 100644 --- a/lib/PublicInbox/Syscall.pm +++ b/lib/PublicInbox/Syscall.pm @@ -224,7 +224,7 @@ # epoll_wait wrapper # ARGS: (epfd, maxevents, timeout (milliseconds), arrayref) # arrayref: values modified to be [$fd, $event] -our $epoll_wait_events; +our $epoll_wait_events = ''; our $epoll_wait_size = 0; sub epoll_wait_mod4 { my ($epfd, $maxevents, $timeout_msec, $events) = @_;