lib/PublicInbox/Syscall.pm | 2 +- diff --git a/lib/PublicInbox/Syscall.pm b/lib/PublicInbox/Syscall.pm index 46496bcaef55085822df8047b3393cd6d876a24c..412ca64ff5891f06d11bd0cbf268f978b0cde806 100644 --- a/lib/PublicInbox/Syscall.pm +++ b/lib/PublicInbox/Syscall.pm @@ -454,7 +454,7 @@ }; *recv_cmd4 = sub ($$$) { my ($sock, undef, $len) = @_; - vec($_[1], ($len + 1) * 8, 1) = 0; + vec($_[1] //= '', ($len + 1) * 8, 1) = 0; my $cmsghdr = "\0" x msg_controllen; # 10 * sizeof(int) my $iov = pack('P'.TMPL_size_t, $_[1], $len); my $mh = pack('PL' . # msg_name, msg_namelen (socklen_t (U32))