shlist

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);