diff options
author | Eric Wong <e@yhbt.net> | 2020-01-26 10:29:21 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-01-28 01:49:48 +0000 |
commit | 9689c65f42c0acc9021953b29ce55730c4cd841d (patch) | |
tree | ea9e22bbb87efc1a14bb6ac711e3bd53837b9a01 /t/httpd-https.t | |
parent | ddec19694cbf0e1d94fb56c0fc4bd90eae540884 (diff) | |
download | public-inbox-9689c65f42c0acc9021953b29ce55730c4cd841d.tar.gz |
daemon: provide TCP_DEFER_ACCEPT for Perl <5.14
Socket::TCP_DEFER_ACCEPT() did not appear in the Socket module distributed with Perl until 5.14, despite it being available since Linux 2.4.
Diffstat (limited to 't/httpd-https.t')
-rw-r--r-- | t/httpd-https.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/httpd-https.t b/t/httpd-https.t index 9ce060c8..ee5ced0f 100644 --- a/t/httpd-https.t +++ b/t/httpd-https.t @@ -87,7 +87,7 @@ for my $args ( SKIP: { skip 'TCP_DEFER_ACCEPT is Linux-only', 2 if $^O ne 'linux'; - my $var = Socket::TCP_DEFER_ACCEPT(); + my $var = eval { Socket::TCP_DEFER_ACCEPT() } // 9; defined(my $x = getsockopt($https, IPPROTO_TCP, $var)) or die; ok(unpack('i', $x) > 0, 'TCP_DEFER_ACCEPT set on https'); }; |