summaryrefslogtreecommitdiffstats
path: root/web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr-server.pl
diff options
context:
space:
mode:
Diffstat (limited to 'web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr-server.pl')
-rwxr-xr-xweb/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr-server.pl26
1 files changed, 0 insertions, 26 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr-server.pl b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr-server.pl
deleted file mode 100755
index 279c59673..000000000
--- a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/10-bindaddr-server.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-#! /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} = $SIG{USR1} = sub {
- exit 0;
-};
-$SIG{HUP} = sub {};
-
-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) {
- close $conn;
- }
-}