1 files changed, 0 insertions, 22 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/03-starter-unix-echod.pl b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/03-starter-unix-echod.pl
deleted file mode 100644
index a54677475..000000000
--- a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/03-starter-unix-echod.pl
+++ /dev/null
@@ -1,22 +0,0 @@
-#! /usr/bin/perl
-
-use strict;
-use warnings;
-
-use lib qw(blib/lib lib);
-
-use IO::Socket::UNIX;
-use Server::Starter qw(server_ports);
-
-my $listener = IO::Socket::UNIX->new()
-    or die "failed to create unix socket:$!";
-$listener->fdopen((values %{server_ports()})[0], 'w')
-    or die "failde to bind to listening socket:$!";
-
-while (1) {
-    if (my $conn = $listener->accept) {
-        while ($conn->sysread(my $buf, 1048576) > 0) {
-            $conn->syswrite($buf);
-        }
-    }
-}