about summary refs log tree commit homepage
path: root/t/httpd.t
diff options
context:
space:
mode:
authorEric Wong <e@yhbt.net>2020-01-26 10:29:21 +0000
committerEric Wong <e@yhbt.net>2020-01-28 01:49:48 +0000
commit9689c65f42c0acc9021953b29ce55730c4cd841d (patch)
treeea9e22bbb87efc1a14bb6ac711e3bd53837b9a01 /t/httpd.t
parentddec19694cbf0e1d94fb56c0fc4bd90eae540884 (diff)
downloadpublic-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.t')
-rw-r--r--t/httpd.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/httpd.t b/t/httpd.t
index 880c69e6..2972afb2 100644
--- a/t/httpd.t
+++ b/t/httpd.t
@@ -81,7 +81,7 @@ EOF
 
 SKIP: {
         skip 'TCP_DEFER_ACCEPT is Linux-only', 1 if $^O ne 'linux';
-        my $var = Socket::TCP_DEFER_ACCEPT();
+        my $var = eval { Socket::TCP_DEFER_ACCEPT() } // 9;
         defined(my $x = getsockopt($sock, IPPROTO_TCP, $var)) or die;
         ok(unpack('i', $x) > 0, 'TCP_DEFER_ACCEPT set');
 };