diff options
| author | Eric Wong <e@80x24.org> | 2022-09-29 17:48:28 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2022-09-29 18:05:54 +0000 |
| commit | d02a695ea7505b8fd048c6b4702a46cea62f2b85 (patch) | |
| tree | b086198a7faa67fc69debad285396ec5069d4aa9 /lib/PublicInbox/Syscall.pm | |
| parent | 9b8ebfddd479bfeda479d2842587269dc9a21752 (diff) | |
| download | public-inbox-d02a695ea7505b8fd048c6b4702a46cea62f2b85.tar.gz | |
This is needed for older Perls (tested perl 5.16.3 on CentOS 7).
Diffstat (limited to 'lib/PublicInbox/Syscall.pm')
| -rw-r--r-- | lib/PublicInbox/Syscall.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/Syscall.pm b/lib/PublicInbox/Syscall.pm index 46496bca..412ca64f 100644 --- a/lib/PublicInbox/Syscall.pm +++ b/lib/PublicInbox/Syscall.pm @@ -454,7 +454,7 @@ no warnings 'once'; *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)) |