1 files changed, 34 insertions, 0 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/06-autorestart-echod.pl b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/06-autorestart-echod.pl
new file mode 100755
index 00000000..2d71a654
--- /dev/null
+++ b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/06-autorestart-echod.pl
@@ -0,0 +1,34 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use lib qw(blib/lib lib);
+
+use IO::Socket::INET;
+use Server::Starter qw(server_ports);
+
+my $sigfn = shift @ARGV;
+open my $sigfh, '>', $sigfn
+    or die "could not open file:$sigfn:$!";
+
+$SIG{TERM} = $SIG{USR1} = sub {
+    my $signame = shift;
+    print $sigfh $signame;
+    exit 0;
+};
+
+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) {
+        my $buf;
+        while ($conn->sysread($buf, 1048576) > 0) {
+            $conn->syswrite("$$:$buf");
+        }
+    }
+}