diff options
| author | Eric Wong <e@80x24.org> | 2023-10-17 23:38:02 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2023-10-18 20:50:32 +0000 |
| commit | 48aca3659c248c936a978a8338cf19aacc9483a1 (patch) | |
| tree | f58abcee6960e6f479f79f5d03f57469d479d0ac /lib/PublicInbox/Syscall.pm | |
| parent | 5406e15b4de72644e4bedb73029c94cad7af5d0a (diff) | |
| download | public-inbox-48aca3659c248c936a978a8338cf19aacc9483a1.tar.gz | |
We use this in various places to minimize or maximize pipe size on Linux. So keep it all in one place.
Diffstat (limited to 'lib/PublicInbox/Syscall.pm')
| -rw-r--r-- | lib/PublicInbox/Syscall.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/PublicInbox/Syscall.pm b/lib/PublicInbox/Syscall.pm index e83beb6a..78181bb6 100644 --- a/lib/PublicInbox/Syscall.pm +++ b/lib/PublicInbox/Syscall.pm @@ -28,7 +28,7 @@ our @EXPORT_OK = qw(epoll_ctl epoll_create epoll_wait EPOLLIN EPOLLOUT EPOLLET EPOLL_CTL_ADD EPOLL_CTL_DEL EPOLL_CTL_MOD EPOLLONESHOT EPOLLEXCLUSIVE - signalfd rename_noreplace %SIGNUM); + signalfd rename_noreplace %SIGNUM $F_SETPIPE_SZ); use constant { EPOLLIN => 1, EPOLLOUT => 4, @@ -55,13 +55,12 @@ use constant { my @BYTES_4_hole = BYTES_4_hole ? (0) : (); -our ( - $SYS_epoll_create, - $SYS_epoll_ctl, - $SYS_epoll_wait, - $SYS_signalfd4, - $SYS_renameat2, - ); +our ($SYS_epoll_create, + $SYS_epoll_ctl, + $SYS_epoll_wait, + $SYS_signalfd4, + $SYS_renameat2, + $F_SETPIPE_SZ); my ($SYS_sendmsg, $SYS_recvmsg); my $SYS_fstatfs; # don't need fstatfs64, just statfs.f_type @@ -70,6 +69,7 @@ my $SFD_CLOEXEC = 02000000; # Perl does not expose O_CLOEXEC our $no_deprecated = 0; if ($^O eq "linux") { + $F_SETPIPE_SZ = 1031; my (undef, undef, $release, undef, $machine) = POSIX::uname(); my ($maj, $min) = ($release =~ /\A([0-9]+)\.([0-9]+)/); $SYS_renameat2 = 0 if "$maj.$min" < 3.15; |