From be1c7e50e1e8809ea56f2c9d472eccd8ffd73a97 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Fri, 19 Apr 2024 04:57:58 +0200
Subject: Adding upstream version 1.44.3.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 .../p5-Server-Starter/t/02-startfail-server.pl     | 32 ++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail-server.pl

(limited to 'web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail-server.pl')

diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail-server.pl b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail-server.pl
new file mode 100755
index 00000000..6913bc8e
--- /dev/null
+++ b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/02-startfail-server.pl
@@ -0,0 +1,32 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use lib qw(blib/lib lib);
+
+use IO::Socket::INET;
+use Server::Starter qw(server_ports);
+
+$SIG{TERM} = sub {
+    exit 0;
+};
+
+my $gen = $ENV{SERVER_STARTER_GENERATION};
+
+if ($gen == 1 || 3 <= $gen && $gen < 5) {
+    # emulate startup failure
+    exit 1;
+}
+
+my $listener = IO::Socket::INET->new(
+    Proto => 'tcp',
+);
+$listener->fdopen((values %{server_ports()})[0], 'w')
+    or die "failed to bind listening socket:$!";
+
+while (1) {
+    if (my $conn = $listener->accept) {
+        $conn->syswrite($gen);
+    }
+}
-- 
cgit v1.2.3