commit 94643b8b59bf5cfad91173818db84cb4665a0071 parent b5548db730268e18c1e9514aaa389feeb7d0cd19 Author: Kyle Milz <kyle@getaddrinfo.net> Date: Sat, 23 May 2015 22:03:06 -0600 sl: handle more than one connection Diffstat:
M | sl | | | 8 | +++++--- |
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/sl b/sl @@ -40,9 +40,11 @@ my $sock = new IO::Socket::INET ( die "Could not create socket: $!\n" unless $sock; -my $new_sock = $sock->accept(); +while (1) { + my $new_sock = $sock->accept(); -while(<$new_sock>) { - print $_; + while(<$new_sock>) { + print $_; + } } close($sock);