diff options
| author | Eric Wong <e@80x24.org> | 2023-12-15 15:22:45 -0500 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2023-12-16 10:06:29 +0000 |
| commit | 6df9454202eeadbdd20af8dd9de5bcceb758b324 (patch) | |
| tree | bda5aaa6216aee7f454c2d367567684ce60b51d8 /t/httpd-corner.t | |
| parent | a9d695a688630a9b070afae2a243140765eb69b5 (diff) | |
| download | public-inbox-6df9454202eeadbdd20af8dd9de5bcceb758b324.tar.gz | |
Test::More distributed with Perl 5.16.3 on CentOS 7.x expects the `$how_many' argument for `skip' and warns when its uninitialized, so quiet that warning down.
Diffstat (limited to 't/httpd-corner.t')
| -rw-r--r-- | t/httpd-corner.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/httpd-corner.t b/t/httpd-corner.t index 35c88600..7539573c 100644 --- a/t/httpd-corner.t +++ b/t/httpd-corner.t @@ -28,7 +28,7 @@ my @zmods = qw(PublicInbox::GzipFilter IO::Uncompress::Gunzip); # using socket activation: my ($defer_accept_val, $accf_arg, $TCP_DEFER_ACCEPT); SKIP: { - skip 'TCP_DEFER_ACCEPT is Linux-only' if $^O ne 'linux'; + skip 'TCP_DEFER_ACCEPT is Linux-only', 1 if $^O ne 'linux'; $TCP_DEFER_ACCEPT = eval { Socket::TCP_DEFER_ACCEPT() } // 9; setsockopt($sock, IPPROTO_TCP, $TCP_DEFER_ACCEPT, 5); my $x = getsockopt($sock, IPPROTO_TCP, $TCP_DEFER_ACCEPT); |